jg^oiirrEB^ i . 



JCHOOL 

93945-6008 



NAVAL POSTGRAOOATE SCHOOL 

Monterey, California 




THESIS 

DESIGN AND IMPLEMENTATION OF A 
DEBUGGER FOR AN ABSTRACT MACHINE 

by 

Stanley Victrum 
June 1987 

' Thesis Advisor: Daniel 1 . Davis 

Approved for public release; distribution is unlimited 



T 233691 




UNCLASSIFIED 

CLASSi^iCAflON 0^ t’HI^ PAGc 



REPORT DOCUMENTATION PAGE 



j REPORT SECuRiry Classification 
Unclassified 



security Classification authority 



) declassification / oowngraoing schedule 



lb restrictive markings 



3 distribution/ availability of report 

Approved for public release; 
Distribution is unlimited 



performing organization report NUMBER(S) 



S MONITORING organization REPORT NUMBERCS) 



( NAME OF PERFORMING ORGANIZATION 6b OFFICE SYMBOL 

|Javal Postgraduate School Code t2 



7j NAME OF MONITORING ORGANIZATION 

Naval Postgraduate School 



I ADDRESS (Cry, Stjrr. ind ^IPCodtt 

\ 

lonterey, California 



93943-5000 



7b AOO«6SS(Ory, Sfjr^, jrxi / IPCoae ^ 

Monterey, California 939^3-5000 



[ NAME OP PUNOING / SPONSORING 
1 ORGanuaTion 


8b OFFICE SYMBOL 
(If ioohcidf^i 


9 PROCUREMENT 


instrument lOEN TiPiCA riON number 


1 ADDRESS (C/ry, Sutr. ZIP Codt) 




10 SOURCE OF funding NUMBERS i 






program I 

ELEMENT NO j 


[project [task 

NO [no 

! 1 


WORK _,Nir 
ACCESSION NO 



T;Ti£ (Include Secunry CUwfiCJdOn) 

DESIGN AND IMPLEMENTATION OP A DEBUGGER FOR AN ABSTRACT MACHINE (u) 



^personal AUThoR(S) 

I'ictrum, Stanley 



r Type of REPORT 

taster's Thesis 



1 lb TIME COVERED 


14 DATE OF REPORT (Yttr. Month 


IS page COuNT 


FROM TO 


1987 June 


138 



^)LPPlE ventary notation 





COSATi 


COOES 


18 Subject terms (Continue on reverie if nectissry snd identify by block number) 


|F EiD 


GROUP 


SUBGROUP 


Interactive debugger; Software portability; 


1 






Resource abstraction; Formal specifications; 


1 






Abstract machine; Representation independence; 



J 

± 

98.8STRACT (Conf/nue on rey^erte nectissry 4 nd identify by blo<k number ) 

, Conventional computer architectures do not allow us to unambiguously 
xpress our intent in a computer program. The combination of artificial 
ata types and resource models force ambiguity and data structure over- 
eading. For example, the semantics of a stack combine those of an array 
tructure and a last-in- first-out queue, while the entire stack ssruccur'^ 
3 implemented In computer memory as a group of fixed lengrh cells. This 
ad other machine-daca cype dependencies can markedly hamper software 
prtability. To overcome these obstacles, a means of formally specifying 
' computing machine's physical resources in an implementation independent 
f|ay has been proposed. Creating an abstraction of the computer's physi- 
il resources in this manner lets the implementor of the specifications 
I'Learly determine the intent of programs written for it. This abstrac- 
tion has come to be known as the Abstract Machine or AM. 



) |S’R'3UTiON/AVAILABiliTY of abstract 
_2-'*^CLASSiFiEO/UNLIMiTEO Q same as rpt 



□ otic users 



2 \ abstract security classification 
Unclassified 



ijiAME OF RESPONSIBLE INDIVIDUAL 

finiel Davis 



2Zb telephone Aff ^ Codt ) 

( 408 ) 646-3091 



22c OFFICE SYMBOL 

Code 52Dv 



DI5RM 1473. 34 MAR 



33 APR t*cJirion m4v oe until evnausted 
All other editions jre obsolete 
1 



SECURITY CLASSlFirATlQN QT -iis PACE 

UNCLASSIFIED 



'j:icla 3 s:?ied 



security classification of this page (^•n D«t« Enf»r«<0 



^iS SUBJECT TERMS (continued) 

Functional interfaces. 

\ 

~'19 ABSTRACT (continued) 

3 ne icipiemenLat ion of chese resource specif icauions has 
already been accomplished. Several programming tools, such as 
a programming language compiler and a visual display device, have 
also been created (in software) for use with this AM’s implemen- 
cation. At present, however, chere are no means for interactive- 
ly aispiaying and altering nice storage resources of the Abstract 
Machine for aebugging purposes . For the current AM implementa- 
tion, the bulk of the automated debugging tools consist of 
assembler code tracing and listing options that can be chosen at 
run time. The goal of this thesis is to build an interactive 
oeougger for the Abstract .Machi.ne near the assemoier code level. 
This should expedite the process of producing relatively error- 
free, executable programs -vhile using a smaller amount of time 
and effort. The debugger will serve as another building block 
in the creation of a complete programming environment for the 
Abstract Machine. This in turn will assist in the general study 
of minimizing the software portability problems that arise be- 
cause of machine-software dependencies. 



no:- 31.1. -,601 



UNCLASSIFIED 



SECURITY CL ASSIFICATION OF THIS PACE(T*Ti«n Dmtm Enfrmd) 



Approved for puDlic release, distribution is unlimited 



Design and Implementation of a 
Debugger for an Abstract Machine 

Stanley ;/ictrum 

First Lieutenant, United States Marine Corps 
B.A., The Citadel, 1982 

Submitted in partial fulfillment of the 
requirements for the degree of 

MASTER OF SCIENCE IN COMPUTER SCIENCE 

from the 



NAVAL POSTGRADUATE SCHOOL 
June 1987 



ABSTRACT 



Conventional computer architectures do not allow us to unambiguously 
express our intent in a computer program. The comoination of artificial data 
types and resource models force ambiguity and data structure overloading. 
For example, the semantics of a stack combine those of an array structure 
and a iast-in-first-out queue, while the entire stack structure is 
implemented in computer memory as a group of fixed length ceils. This and 
other machine-data type dependencies can markedly hamper software 
Dortaoilitu. To overcome these obstacles, a means of formally specifying a 
comouting machine's physical resources in an implementation indeoenaent 
way has been proposed. Creating an abstraction of the computer's physical 
resources in this manner lets the implementor of the specifications clearly 
determine the intent of programs written for it. This abstraction has come 
to be known as the Abstract Machine or AM. 

One implementation of these resource specifications has already been 
accomplished. Several programming tools, such as a programming language 
compiler and a visual display device, have also been created (in software) for 
use with this AM's implementation. At present, however, there are no means 
for interactively displaying and altering the storage resources of the 
Abstract Machine for debugging purposes. For the current AM 
implementaiicn, che bulk of -he automated debugging tools zonsist of 
assembler code tracing and listing options that can be chosen at run time. 
The goal of this thesis is to build an interactive debugger for the Abstract 
Machine near the assembler code level. This should expedite the process of 
producing relatively error-free, executable programs while using a smaller 
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amount of time and effort. The debugger win serve as another building block 
in the creation of a complete programming environment for the Abstract 
Machine. This in turn will assist in the general study of minimizing the 
software portability pr9blems that arise because of machine-software 
dependencies. 
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L INTRODUCTION 



(n the days when the assembly language programmer was king ana 
higher-level programming languages were still unimplemented concepts on 
the "drawing board," crude were the tools the programmer could wield in his 
programming environment to quickly conquer coding problems. During this 
period, CPU time was money, thus efficient programs were a must (as well as 
a source of pride and means of security for the programmer). The 
programmer Vv'as expected to massage the computing machine's stacks, 
registers and memory to eke out as efficient a program as possible. 

To write efficient programs, the programmer typically included in his 
program code assumptions about his computing machine's physical 
resources. These assumptions, such as the number of registers available, the 
machine's representation of data types, and the physical implementation of 
the stacks, were "hardwired" into the programmer's code. Of course, errors 
in the program required intimate knowledge of all these assumptions. Events 
such as upgrading the machine or replacing it with one of a slightly different 
architecture typically caused program nightmares with previously "bug-free" 
programs going haywire because the resource assumptions had changed. This 
situation, unfortunately caused even more assumptions to be incorporated 
into the code, typically in the form of program '’patches. ’’ This cycle, if 
allowed to continue, can so disfigure the original intent of the program, it 
soon becomes difficult, at best, to interpret it. 

Conventional computer architectures do not allow us to unambiguously 
express our intent in a computer program. The combination of artificial data 
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types and artificial resource models force ambiguity and data structure 
overloading. For example, the semantics of a stack combine those of an 
array structure and a last-in-first-out queue, while the entire stack 
structure is implemented in comouter memory as a group of fixed length 
cells. This and other machine-data type dependencies can markedly hamper 
software portability. To overcome these obstacles, a means of formally 
specifying a computing machine's physical resources in an implem.entation 
independent way has been proposed (Davis[1984]). Creating an abstraction of 
the computer's physical resources in this manner lets the implementor of the 
SDecificaiions clearly determine the intent of programs written for it. This 
abstraction has come to be known as the Abstract Machine or AM. 

One implementation of these resource soecifications has already been 
accomplished (Yurchak(1984]). Several programming tools, such as a 
programming language compiler (Ozisik[1986l) and a visual display device 
(Hunter[1985l), have also been created (in software) for use with this AM's 
implementation. At present, however, there are no means for interactively 
displaying and altering the storage resources of the Abstract Machine for 
debugging purposes. The current debugging tools consist of assembler code 
tracing and listing options that can be chosen only at run time. This thesis' 
goal Is to build an interactive debugger for the Abstract Machine near the 
assembler code level. This should expedite the process of producing 
'■eiariveiy error-free, executaoie programs while using 2 smaller amount of 
time and effort. The debugger will serve as. another building block in the 
creation of a complete programming environment for the Abstract Machine. 
This in turn will assist in the general study of minimizing the software 
portability problems that arise because of machine-software dependencies. 
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U. SACXGROUND 



A. THE PROBLEM 

In his Masters thesis, Yurchak[1984] presented a formal specification for 
an Abstract (computing) Machine which he called AM. This AM was to be used 
to study and offer a way of minimizing the problem of porting software from 
one computing machine to another. 




Yurchak[1984] noted that porting large programs between computing 
macnines is an expensive ordeal in terms- of programmer time and effort. 
This predicament is brought on because of the wide semantic gap (as shown 
in Figure 2.1 above) between the programmer’s problem solving abstraction 
(i.e. programming languages, development tools, etc.) and the computing 
machine's physical resources abstraction (i.e. addresses, registers, stacks, 
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2 tc.). In his words, this gap between the two abstractions was, 
simplistically speaking, a "boundary" between the software used by the 
programmer to form problem solutions and the hardware by which those 
solutions are implemented. 




Figure 2.2: Data Type Dependency on Hardarare Ualues 



Generally, a computing machine has but a few primitive structures on 
which the rest of the problem solving abstraction is based. Typically, there 
exists a strong bond between the way data types are implemented and the 
manner in which they are represented in hardware. For example, a character 
string is typically represented as an array of memory cells, with each cell 
containing the corresponding integer representation of the corresponding 
character in the character string. Figure 2.2 above depicts this relationship, 
if the textual reoresentaiion of the values in computer memory were to be 
removed, the meaning of the values could not be determined. They could be 
integers, memory addresses or numeric symbols for other artificial data 
types. The context of the values must be determined before they can be given 
meaning. This situation typically leads to overloading of the primitive data 
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types of the machine, allowing the programmer to treat one data type as 
another, thus compromising the data structure typing. This compromise 
typically causes extensive program changes in the data structure definitions 
when porting the program from one architecture to another. 

8, A FEASIBLE SOLUTION: AM 

In proposing a solution to the software portability problem, 0avis[1984] 
formulated a methodology for formally specifying a computer's resources at 
different levels of abstractioa His approach was to develop formal 
specifications for the functional interfaces between the resources of the 
computing machine. In this way, the user need only be concerned with the 
functional interface to a particular abstraction level and not the actual 
interface implementation, which could be done in hardware or software. To 
ascertain the feasibility of this new methodology, Yurchak[1984l designed 
and implemented a test version of the specifications for a computer 
processor, which has become to be known as the Abstract Machine. 
Davis[1984] and Yurchak[l984] decided to test the methodology at the 
processor level of abstraction because, being the most difficult to formally 
describe, it would give the most insight on the validity of the approach. 

This abstract architecture treats each one of the machine's physical 
resources as a black box and allows the programmer to use the resources in 
only the soecified way. In other words, the specification details exactly 
what resources mean and how to use them, but does not specify how a 
resource is to be implemented. With software tools being written for 
implementation on one abstract machine, software portability is markedly 
Improved. The AM serves as a formal interface between the programming 



13 



Programming Tools 






t 



'I: 



ProtilemSoluingHbs: tract ian' 






• •• • '5^ ^ 'A T h S e m a n t i c G a p q 






XJ.v.;i:.ui 



5 ^ b s t r a c t ?l a c h, in s S 

y-^ : -It— 

Physical fle source abstraction j 

■V tw II I <m<m, m ,m ■■■■■M ■^I M ■ i ■..■!■ ■ j — i i 






3?: 






Hardware 



Figure Z.3: iNgrrouiing me semantic 5ap 



tools in the environment and the physical resources of the computing 
machine. The AM programming tools will work on any architecture as long as 
the AM specifications are properly implemented on that architecture. Figure 
2.3 above depicts the AM interface in the programming environment. 

C. RELATED RESEARCH 

Several programming tools have already been developed for the AM. 
Hunter[1985] formally designed and specified a visual display device for the 
AM. Ozlsik[1986] designed and implemented a subset C compiler which 
produces AM assembly language code. Zang[1985] formally specified and 
lesigned an aostract database using similar orinciDles for soecifying :hc AM. 
Again, the goal of this thesis is to create another development tool for the 
AM programming environment, namely, an interactive debugger near the 
assembly code level. 
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III. DESIGN 



Before presenting the design and impiementation of the AH interactive 
debugger, it is important to make clear the salient points behind the 
specification of the AM. The AM is an abstraction of the physical resources 
of a machine and, as Davis[1984] points out, the methodology used to 
formally specify that abstraction is rsprssentstion independent The best 
example of this representation independence notion is abstract data types. 
The type 'integer' not only implies a set of values, but a set of operations 
upon those values. This "notion" can be implemented in many different 
contexts, but its intuitive properties transcend implementations or physical 
representations. This is the essence of and the true power behind the 
Abstract Machine concept. 

The actual AM implementation around which the interactive debugger was 
built is another physical representation of this representation independence 
notion. Therefore, although one implementation is presented in this thesis, 
the formal specifications for the resource abstraction is adhered to (via the 
programmer interface to the debugger). 

A. BASIC COMPUTER RESOURCE ORGANIZATION 

I. Computer Resources 

The AM incorporates the basic principles of a von Neumann computing 
machine. It has a memory for program storage and instruction execution, 
sets of registers and stacks for temporary storage of data values, and, of 
course, a set of data values. Yurchak's[1984l AM implementation, being an 
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abstraction of a computing machine’s physical resources, can be easily 
"reconfigured" by changing the basic definitions of the resources available. 
The implementation storage resources used in developing the debugger were 
as follows: 

• Two memory segments, each with 1024 storage cells; 

• One register segment with thirty-two storage cells; 

• One stack segment with 512 storage cells; 

• 1022 heap segments, each with 1024 storage cells. 

The memory, registers, stacks and heap storage cells, as in any computing 
machine, all hold defined data values. The definition of AM data values, 
however, differs slightly than the manner in which they are defined in other 
computing systems. The AM’s data values are typed while a regular von 
Neumann machine's is not. In other words, one can determine what the value 
is inside a storage location since the value’s type is stored along with it. 
Figure 3.1 on page 17 shows an example of a computer program in this AM 
implementation with its machine code and assembly language 
statements. At memory location '00000000,' '0190' is the AM 

implementation's machine code for INSTRUCTION-TYPE, it is followed in the 
memory address by the Instruction opcode and the operands for the opcode. 
Notice that each operand value is also linked to a type. '0160' is machine 
code for MEMORY-ADDRESS-TYPE and '0170' for REGISTER-ADDRESS-TYPE. 

The AM physical resources abstraction, being imolemented :n 
software, is built upon data structures. The data structures used by 
Yurchak[1984] were studied in depth so that the computer's functional 
capabilities could be extended and, thus, are presented in the next section. 
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Figure 5.1: Computer Program in HM Implementation 



2. Computer Data Structures 

In order to design a debugger that will interact unobtrusively with 
the All's basic operations, one must understand the data structures upon 
which it was implemented. These structures represent the AN's data values, 
memory, registers, and stacks. All the data structures used in this 
implementation were written in the 'C' programming language. 

Figure 3.2 on page 18 shows the type declaration structures in 
Yurchak's[1984] implementation for BOOLEAN. INTEGER and NATURAL data 
values. They are representative of ail the 'AH’s basic data value structures. 
Yurchak(1984] notes that the AM storage resources are designed to hold any 
properly defined value. In typical computing, this poses little or no problem 
since all the values are based upon the overworked and overloaded bit vector. 
To be able to store and operate upon a myriad of value types in the 
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typedef char bool; 

typedef unsigned int nat; 

typedef struct { 

short type; 
bool val; } BOOL; 

typedef struct { 

short type; 
long val; } INT; 

typedef struct { 

short type; 
nat vai; }NAT; 



Figure 3.2: Data Ualue Structures 

AM's "physical resources" required the introduction of another "common" 
level of abstraction, a union of all the basic value types. This abstraction 
was implemented using the structure shown in Figure 3.3 on page 19. 

With the structures of the data values now presented, it is now time 
to examine the structures that represent this implementation's primary 
physical resource abstraction for the memory, registers and stacks. The 
'upe declarations for the structures are shown in Figure 3.4 on page 20. 
Each rssource is primarily a structure containing an array wmch can store 
any value defined in this AM implementation. The computer's memory, 
registers and stacks are actually arrays of these resource structures. Each 
of these arrays equates to a storage "segment." 
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Figure 3.3: Common UHLUE Rbstraction 



3. Instructions to the Computer 

P 2 rhaps the most important of the computer values is the 
INSTRUCTION. INSTRUCTION values, as in any other computing machine, drive 
the computer program's execution. Its type definition and logical structure 
in Yurchak'5[l984] implementation are snown in Figure 5.5 on page 21. As 
shown in the figure, the instruction is implemented as a structure containing 
its value type and an array of operand values. The first element of this array 
is the instruction opcode. Subsequent elements in the array are the operands 
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Figure 3.4: Primary Resource Structures 



(am data values) for the instructions. Yurchak(1984l implemented the 

instruction value so that the first digit of the opcode indicated the number 
of operands the instruction required. By his design, the opcode was also 
considered as one of the operands. It is important to note that the 
instruction type definition (Figure 3.5) and the common-value type 
definition (Figure 3.3) are recursively defined in terms of each other. This 
facilitates converting from a basic instruction value, stored in memory, to 
an executable instruction at the programming level of abstraction. 

9. DESIGN OF THE INTERACTIVE DEBUGGER 
I. Philosophu 

As stated in Chapter 1, the computer’s current debugging facility 
consists of a trace option that can be specified at computer "startup." This 
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typedef struct { 

short type; 

union value ^val; } INSTR; 
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figure 5.5: Structure of Instruction Ualue 

trace facility was, however, designed more for providing debugging 
diagnostics about the computer’s internal functioning than for debugging the 
user's program. The trace could only be turned on at the beginning of 
program execution and could only be turned off by program termination. This 
facility alone clearly does not provide the AM computer programmer with an 
adequate program debugging environment. 

Wray[1984l notes that a microcomputer debugging environment 
should have the following basic functions: 

• Single-step program execution; 

• Breakpoints in program execution; 

• Register Dlsplay/Modificatlon; 
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t ilemory Oisplay/hodificaticn. 

This basic suite of debugging facilities gives the programmer the capability 
to "disassemble" and examine his program and the machine state in discrete, 
well defined steps. This gives the programmer a means of quickly identifying 
and correcting program logic errors with a minimum of time and effort. The 
interactive debuaaer for the AM was desianed to provide all of the above 

W W w • 

facilities. To give the programmer an added degree of freedom in the 
debugging environment, the following capabilities were also incorporated 
into ^he design of the AH debugger: 

9 Program Execution Trace; 

» Program Counter Oispiau/ncdificatioa 
The program execution trace, unlike the old trace facility, snows just the 
instruction about to be executed. Allowing the programmer to see and 
change the program counter allows the testing of different program 
execution paths without having to terminate program execution, changing its 
textual representation, and recompiling the program for executioa This is in 
accord with the philosophy of providing a debugging environment that 
facilitates quick detection and correction of coding (logic) errors. 

Yurchak's[1984] AM implementation is designed to be easily 
reconfigurable by changing the basic array definitions of the resources 
available. The essence of this design objective was carried over into the 
aesign of the debugger. A reconfiguration of the computer's resources in the 
AM is acknowledged by the debugger while performing its operations. The 
basic definitions for the debugger may also be easily reconfigured for, say, 
allowing more program breakpoints or increasing the maximum integer the 
debugger assumes. 
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2. PebuQQer interface to the Physical Resourc 2 S 

!n order to implement the debugger facilities, an interface to the 
computer's physical resources had to be designed This interface would be 
primarily concerned with the retrieval and storage of data values in the 
machine's physical resources. A study of the computer's data retrieval and 
storage modules revealed that the following functions were currently 
available for these tasks: 

• FETCHMQ - retrieves a value from memory; 

• STCREMO - stores a value into memory; 

FETCHRQ - retrieves a value from a register; 

STORERO - stores a value into a register: 

TOPSTKQ - retrieves a value at top of a stack. 

These functions provide a well-defined interface to the data structures upon 
which the resource abstraction is built. Interfacing to these functions to 
perform the debugger operations resulted in a reduction in the amount of 
code needed to implement the debugger. 

As is typical in any computing machine, however, some data retrieval 
and storage operations generate errors which in turn force abnormal 
termination of program execution. Three such operations are as follows: 

• Retrieving a value form an uninitialized storage location; 

• Retrieving a value form a non-existing storage location; 
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» Storing a value at a non-existing storage iocaticn. 

Clearly if the debugger is to use the implementation's existing All data 
retrieval and storage functions to perform its operations, a means of 
properly handling these types of errors had to be developed. To display 
uninitialized storage locations while in the debugging mode, the retrieval 
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functions were modified to return a NULL value for displaying to the user. If 
the computer is not In the debug mode, a regular execution error is 
generated. The means for preventing the latter two types of errors while in 
the debug mode were designed into the user interface to the debugger. 

3. Debugger Interface to the User 

The interface was designed to permit, of course, the capability to 
perform the operations listed in section III.B.l. It was also tailored to keeo 
the user from specifying debugger commands that would cause preventable 
errors in the debugger interface to the physical resources abstraction and in 
program execution. Since the debugger has access to available computer 
resources, the user can be kept from trying to access a non-existing storage 
segment or offset address, from setting the program counter to a memory 
location that does not contain an instruction value, or setting a breakpoint 
at a memory location that does not contain an instruction value. This type 
of interface traps potential errors at the earliest possible stage. It does 
not, however, prevent the user from setting a storage location with a value 
that may cause an error during program execution. This particular kind of 
error correction was considered beyond the scope of this thesis and, 
therefore, was not entertained. 

The debugger was designed to prompt the user for each piece of 
command input (prompted commands) instead of the user entering the entire 
debugger command on one or two lines (line commands;. Prompted inour 
allows for "layered” error checking of the debugger command, allowing the 
user to reenter Input at that layer instead of having to reenter the entire 
debugger command. This also permits new users, familiar only with this AM 
implementation’s value representation and instruction opcodes, to quickly 
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learn and use the debugger without learning debugger command- line formats 
The debugger interface to the user is shown in Appendix A, Sample Sessions. 
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IV. IMPLEMENTATION 



A. ASSUMPTIONS 

In building any software tool, some of the many variables in a 
programming environment must be made fixed due to implementation 
considerations and a need for establishing a point of reference. These 
"constant" variables take the form of assumptions about the programming 
environment. The following ones have been made about the AM programming 
environment: 

» The user knows how to assemble files using the environment's 
assembler for execution on the computer; 

• The user is familiar with the instruction opcodes used in this 
implementation of the AM; 

• There are no more than six (6) operands per instruction; 

• A character string is less than 81 characters in length; 

• Integer values range from - 2147483647 to 2147483647; 

B. DEBUGGER COMMAND SYNTAX SYMBOLS 

The debugger command syntax symbols are in Appendix B, Debugger 
Command Syntax Symbols. The user is prompted for each piece of the 
ccmmana, therefore, ‘he actual command format is relatively unimportant. 

C. INTERACTIVE DEBUGGER OPERATIONS 

1. Displau Operations 

The user can use the debugger to display all the computer's memory, 
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registers, the top of any stack segment, all the program breakpoints and the 
current value of the program counter. Sample demonstrations of the display 
operations can be found in Appendix A, Sample Sessions. The following 
subsections present the functional details for each type of display operation. 

a. Display Memory 

All of the computer's memory cells can be displayed with the 
'display memory' operatioa The command has the following syntax: 

'd' 'm' {'^' I segmentioffset} span 

The operation retrieves a value from a specified memory cell and disDiaus it 
to the user. It uses the computer function 'fetchmQ' to perform the retrieve 
and 'showmemO' to display the value at the memory location. Normally, 
during regular program execution, a retrieval from an uninitialized memory 
location causes an execution-terminating error in the computer. For 
debugging purposes, however, a means was developed to interject a null value 
into the retrieve if, in fact, no value is contained at the specified memory 
cell. A control variable was used to tell the computer whether to return a 
null value (implying the machine was performing a debugger task) or generate 
an error (machine under program execution). Control variables are covered in 
section IV.D. 

b. Display Register 

All of the comouier's registers can be viewed with the ’disDiau 
register' operation. It has the following command syntax: 

'd' 'r' segment:offset span 

Like the 'display memory' operation, this operation causes similar retrieval 
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and display operations to be performed, but using the AM's register segments 
instead of the memory segments. This operation uses 'fetchrO' to retrieve 
the value from the register cell and 'showmemO' to display the value to the 
user. As in displaying memory, similar provisions are made for the 
interjection of a null value if the register cell contains no value. 

c. Display Stacktop 

The top of any stack segment can be displayed using the 'display 
stack' operatioa Its command syntax is as follows: 

'd' 's' segment 

The mechanics of the 'display stack' operation are similar to that of 'display 
memory' and 'display register'. It, however, uses 'topstkO' to retrieve the 
value stored at the top of a stack segment. One might wonder why the user 
is given a free hand in viewing any rnemory or register cell, but is restricted 
to seeing only the top cell in a stack segment. This, in part, is in keeping 
with the notion that the resources are a "black box." For a particular state 
of the computer, the values stored in the memory and registers 'exist' and 
are all accessible by the user, typically via a computer program. Values in 
stack cells below the top cell conceptually do not exist for a particular 
state of the machine. The interactive debugger adheres to this principle. 

d. Display Breakpoints 

This operation displays all the entries in the breakpoini table. 
The command syntax is as follows: 

'd' 'b' 



The table has three items per entry: the break number, the memory location 
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where the breakpoint is set, and the opcode of the regular instruction. The 
table is updated by the 'set breakpoint' and 'remove breakpoint' commands, 
e. Display Program Counter 

This debugger operation displays what segment the program 
counter is currently in and at what offset in the segment it is currently 
pointing. Its command syntax is as follows: 

'd' 



2. Set Operations 

The set operations are perhaps the most important of ail the other 
debugger operations since they permit the user to actually change the state 
of the computer. The operations give the use the capability to alter the 
state of the computer's memory, registers, stacktops and the program 
counter. The set operations also include the capability to set breakpoints at 
specified memory locations. Demonstrations of the set commands can be 
found in Appendix A, Sample Sessions. The functional description of each of 
the set operation now follows, 
a. Set Memory 

The debugger operation 'set memory' gives the user the capability 
to store any of the AM's defined values at any memory location, uninitialized 
or not. This allows the user to "patch" faulty instructions so that program 
testing can proceed upon a user-desired path. Its command syntax is as 
follows: 

's' 'm' segmenhoffset value 

This operation uses the computer function 'storemO' to place the desired AM 
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value into a specified memory location. This operation can indirectly affect 
the behavior of another debugger operation, 'remove breakpoint' (which is 
covered in detail later). Breakpoints are implemented by substituting 
breakpoint opcodes for the actual instruction opcode in the instruction 
value. Setting a memory location which contains a breakpoint opcodewould, 
in effect, remove the breakpoint opcode, but leave its breakpoint entry in the 
break table. For this reason, the set memory' operation first retrieves the 
value using 'fetchmO' and checks to see if a breakpoint exists at the 
location. If there is, the user is given the option of aborting the operation 
or confirming it. If the operation is confirmed, the breakpoint is removed 
from the table and the new value stored into memory. This technique helps 
to ensure closure in the debugger operations and to maintain a significant 
degree of operation independence between the debugger commands. 

b. Set Register 

This operation allows the user to set any register location to 
any one of the regularly defined values. Its command syntax is as follows: 

's' 'r' segmenboffset value 

It uses the function 'storerO' to store 'value' into the indicated register. 

c. Set Stacktop 

This operation lets the user store any regularly defined value at 
the too of any stack segment. Its command syntax is as follows: 

's' '5' segment:offset value 

This AM implementation contained no function for actually changing the 
value at the stacktop without modifying the stack pointer. In other words. 
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the value at the stacktop can normally be changed only by pushing values onto 
or popping values off of the stack, thus changing the stack pointer. To give 
the user the freedom to actually alter the value at the stacktop without 
modifying (in ail but one case) the stack pointer, a new function was added 
to the computer called ’storestk().' The function uses the stack segment 
stack pointer to actually store the value at the stacktop. It does change the 
stack pointer when the stack is empty since the stack pointer must be 
initialized before the value can be stored, 
d. Set Breakpoint 

This operation gives the user the caDability to temporaniy nait 
program execution to examine and possibly alter the state of the AM. Its 
command syntax is as follows: 

's' 'b' segmentioffset 

Breakpoints can be set in any memory location that contains an instruction 
value. The operation will self-abort if a non-instruction value Is stored at 
the memory address (and the user is so informed). The operation also 
self-aborts if a breakpoint is currently set at the memory location. 

The operation first uses 'fetchmO' to retrieve the value stored at 
the specified location, Then the aforementioned tests are performed. If the 
value in memory is an instruction and no breakpoint Is set at the location, a 
new breakpoint oocode is computed, the regular opcode and the memory 
address are stored in the table, the new breaKpoint opcode is stored in the 
Instruction, and then the instruction is stored back Into the memory location 
using the computer function 'storemO.' 
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The breakpoint opcode is formed by taking the debug breakpoint 
code, which in this implementation is '0812', and adding the break number to 
the front of the code. For example, if the next open entry in the break table 
is at position 4, the break opcode computed wcuid be ’4812'. (Currently, up 
to eight (8) breakpoints may be set at any one time during the debug session.) 
e. Set Program Counter 

This operation gives the user the ability to set the program 
counter to any location in memory that contains an instruction value. 
Restricting the target memory location this way prevents a program 
execution error by the computer. !n other words, truing to execute a 

non- instruction value causes the computer to generate an 

execution-terminating error. The command syntax is as follows: 

'a' '^' segment-offset 

It the user enters a memory location that does not contain an instruction, 
the operation self-aborts and the program counter remains unchanged. 

3. Remove Breakpoint Operation 

This operation undoes the 'set breakpoint' operation. Its command 
syntax is as follows: 

'r' brknum 

It removes breakpoints by their eniru numoer in the break table. It first 
cnecks to see if ihe entry is in the table. If it is not, the operation 
self-aborts (and informs the user). If it is, the operation uses 'fetchmO' 
(with the break table entry memory address as a parameter) to retrieve the 
instruction value, inserts the regular opcode from the break table into the 
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instruction value, deletes the break table entry and stores the value back into 
memory using 'storemO/ A sample demonstration of this operation can be 
found in Appendix A, Sample Sessions. 

4. Trace Execution Operations 

These operations are used to turn on and off the debug trace flag. 
They can also be used to trace a certain number of instructions and return 
control to the debugger. After the operation is set, it's is activated by 
issuing the 'go execute' command. Sample demonstrations can be found in 
Appendix A, Sample Sessions. The following subparagraphs present the 
functional details for each of the trace operations. 

a. Trace On 

This operation turns on the debug trace flag. When the flag is on, 
each instruction is displayed before it is executed. The command syntax is 
as follows: 

't' '!' 

The operation can be disabled at the debugger level by the 'trace off' 
command. The operation is also aborted during program execution by 
program termination or a breakpoint being encountered. This operation 
partially disables the 'trace /?’ operation and completely disables the 'trace 
off' operation. 

b. Trace Off 

This operation turns off the deoug trace flag. When the flag is 

off, the instruction about to be executed is not displayed to the user. Its 
command syntax is as follows: 

't' 'z' 
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This operation also disables the 'trace on' and 'trace /?' commands at the 
debugger level. It can be disabled by the 'trace on' and 'trace /?' commands at 
the debugger level, 
c. Trace n 

This operation causes execution to be traced for /? instructions 
and then control to be transferred bade to the debugger, its command syntax 
is as follows: 

't' span 

While at the debugger command level, it can completely disable the 'trace 
off' operation. After the specified number of instructions are executed, the 
debug trace is again turned off. While at the debugger command level, this 
operation can be partially disabled by the 'trace on' command and totally 
disabled by the 'trace off' command. During program execution, the 
operation is disabled by program termination or a breakpoint being 
encountered. The number of instructions to be traced can also be overriden 
by the 'go execute n ' command. 

5. Go Operations 

These commands are used to transfer control from the debugger back 
to the computer. Demonstrations of the operations can be found in Appendix 
A, Samole Sessions. The functional details of each of the go ooeratiens are 
presented in the following subparagraphs, 
a. Go Uncontrolled 

This operation transfers control back to the computer so that it 
can proceed with program execution. The operation proceeds until a 
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DrgaKpoint is encountered, a 'trace /?' operation is compiete or the program 
terminates. Its command syntax is as follows: 



b. Go n 

Like the 'go uncontrolled' operation, this operation causes 
control to be transferred from the debugger back to the computer for 
program execution. However, after n instructions are executed, control is 
transferred back to the debugger. Its command syntax is as follows: 

'g' span 

The operation is disabled in program execution by a breakpoint being 
encountered, program termination or the completion of the specified number 
of instructions. This operation has an indirect effect upon the 'trace n ' 
operation. Changing the number of instructions to be executed in the 'go n' 
command also overrides the number to be traced. 

6. Help Operation 

This operation lists the available debugger operations and their 
command f ormats. Its has the following command syntax: 

'?' 



A demonstration of the operation is shown in Appendix A. Sample Sessions. 

D. DEBUGGER CONTROL OF MACHINE EXECUTION 

For the debugger to control the execution of the computer requires that 
certain "toggles" be added to the machine. Implementing these "toggles" 
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translates into defining control variables that the debugger sets and the 
computer reads to alter machine execution and flow of control. Figure 4.1 
on page 37 is a list of the control variables added to this AM 
implementation. A more detailed description of the function of each of the 
control variables is presented in the following subparagraph. 

1. Debuoflao 

This control variable directs the computer to activate and transfer 
control to the interactive debugger. It is set on two occasions, the user 
specifying the -d' option at computer "startup" and the program terminating, 
normally or abnormally. It is reset when control is passed from the 
debugger back to the computer. 

2. Debqtask 

This control variable keeps the retrieve operations from generating 
an error if the debugger attempts to retrieve a value from an uninitialized 
storage location. If the storage location is uninitialized, the retrieve 
function generates a null value and returns it to the debugger. The 
termination of each debugger operation zeroes the variable. 

3. Left2do 

This variable controls the number of instructions to be executed for 
a 'go n' ora 'trace /?' debugger operation. This control variable is zeroed if 
an execution error occurs or a breakpoint is encountered. It also works in 
tandem with the 'debgcntl' control variable. 

4. PebQcntl 

This control variable tells the computer that a 'go /?' or a 'trace /?' 
operation is being performed in tandem with program executioa If 'debgcntl' 
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int d 2 bugflag = 0; 

When== 1, calls the interactive debugger. . 
int debgtask = 0; 

When == 1, tells Afl that debugger is directly using An functions for 
debugger operations. 

int left2do - 0; 

When == I, tells AM how many instructions to do before forking back 
to the debugger. Set by 'go n' and 'trace n' debug ops. 

int debgcntl = 0: 

When == 1, tells AM that its execution is under control of a 'go n' or 
'trace n’ debug operation. 



int breakfig = 0; 

When == 1, tells Ah that breakpoint encountered in its execution and 
conversionof an instruction must be made. 

int errorfig = 1; 

When== 0, tells error() that ICSTOP instruction has occurred and not 
to print certain error messages. 

int dbgtrace = 0; 

When == 1, sends value at the _pc.val to standard output device, thus 
performing a program execution trace. 



Figure 4.1: Debugger Control Uaiiables 

is set, then the control variable 'left2do' is checked for equality with zero. 
This variable is zeroed when the number of instructions has been executed, a 
breakpoint occurs, or the program terminates. 
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5. SreakfiQ 

Breakpoint opcodes are substituted for the regular instruction 
opcodes, with the regular opcode being stored in the break table. The 
'breakflg' "toggle" is set when an instruction containing, a break opcode is 
encountered. The variable signals the debugger that the instruction must be 
restored to an executable form by reinserting its regular opcode from the 
break table. 'Breakflg' is zeroed after the instruction is modified. When the 
debugger transfers control back to the computer, the modified instruction is 
then interpreted and executed. 

6. ErrorflQ 

In the AM's current implementation, normal as well as abnormal 
program termination calls the error handier to halt execution. This flag is 
set by the ICSTOP instruction so that certain error messages are not printed. 

7. Dbgtrace 

This "toggle" causes the computer to display the instruction to the 
user prior to its execution. It is set by the ’trace n ' and 'trace on ' 
operations. It is zeroed by a breakpoint being encountered, by the 
completion of the 'trace n ’ operation, by the 'trace off' operation, or 
program termination. 

E. ERROR HANDLING IN PROGRAM EXECUTION 

The control variables added to this AM implementation, coupled with the 
error handler modification, give (he debugger the means for "trapping" 
control of program execution. Calling the error handling module now causes 
the debugging control variables to be zeroed, the appropriate messages to be 
displayed to the user, and a return to the debugger command level so that the 
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user can examine or alter the machine state and, if desired, rerun the 
program. 

F. MODIFICATIONS TO AM IMPLEMENTATION 

The main debugger program files added to this implementation of the AM 
are contained in Appendix C, Debugger Program Files. Some modifications 
were also made to the actual implementation of the AM. These changes were 
necessary to establish an interface between the debugger and the AM's 
physical resources. The more significant changes are brief ly listed below: 

9 Debugger control variables were added to the AM implementation to 
provide proper transfer of control between the computer and the 
debugger; 

• The memory, register and stack retrieve operations were modified to 
return a null value to the debugger if the storage location was 
uninitialized; 

• A breakpoint opcodewas added to the computer opcodedefinitions; 

• A function for storing a value at a stacktop was added to the value 
retrieve and store module; 

• The original copy-value function was duplicated and renamed for use 
in the AM assembler. This was done so as to hide the separate 
debugging process from program assembly process; 

• The display-value function was modified to suppress displaying this 
AM's implementation details to the user; 

• The error handler function was modified to call the debugger upon 
program termination, normal or abnormal. 
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V. CONCLUSIONS AND FUTURE WORK 



D 2 signing th 2 int 2 ractiv 2 d2bugg2r to maka use of the AM 

impl2m2ntation's 2xisting functions again damonstrates th2 advantage of 
formally specifying functional interfaces for computer resources. Because 
the interfaces were well defined and built as conceptual "black boxes," 
linking them to the debugger was relatively straightforward. Having the 
interfaces being built as "black boxes” also helped to prevent the 
modification "ripple effect" upon the behavior of existing functions. It is 
expected that the addition of an interactive debugger to the AH programming 
environment will significantly aid futur*b developers of AH resource tools. 

Although the interactive debugger significantly enhances the AH 
programmers ability to interact with the other elements in the AH 
programming environment, its interface to the user can be improved. In light 
of this, the following areas for continuing research are suggested: 

• Implement an in-line assembler for the debugger. This would permit 
the user to set storage resources by entering the actual assembler 
language statements. This provides a debugger interface at the level 
of the assembly language programming abstraction; 

• Implement an in-line disassembler for displaying instruction values 
'n memory; 

• Implement a graphical user interface to the debugger. 
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APPtaPIX A: SAMPLE SESSIOHS 



>am -d 



**************************** 

* THE DEBUGGER * 

**************************** 



HELP OPERATION 



Enter letter of operation: 

d (isplay) 
q (o execute) 

? (list debug ops) 
r (emove break) 
s Ut) 
t (race) 

q (ult ^ bait exec) 



>? 

Debugger Commands 

‘d’(isplay) ‘mXemory), {’*’ I seg:otfset}, span 

’r‘(egister), segioffset, span 
s'Ctack - top only), seg 
*b*(reaks - all) 

‘♦‘(program counter) 

‘g‘(o) {‘!‘ In <instrs>} 

‘?‘(list available debug commands) 

‘s‘(et) ‘m‘(emory), seg:offset, val_type, val 

‘r‘(egister), seg.offset, val_type, val 
‘s‘(tacktop, seg, val_type val 
‘b‘(reak), seg.offset 
‘♦‘(program counter), seg.offset 
‘t‘(race) ‘!‘(on) < TRACE 

‘z‘(off) STARTED 

for n instrs BY ‘G0‘> 

‘q‘(uit debug and halt execution) 

Legend: I - or, II - optional, <> - comment, {} - Must choose an item. 

Enter non-blank char to continue. 

>q 

DISPLAY OPERATIONS 
Display Memory 

Enter letter of operation: 

d (isplay) 
g (o execute) 

7 (list debug ops) 
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r (emove break) 
s (8t) 
t (race) 

q (uH & halt exec) 



Enter one of choices below: 

m (emory) 
r (egister) 
s (tack top) 
b (reek) 

* (program counter) 



Enter one of following: 

’V' - addr value prompt 
- for current PC value 
>■ - to abort the operation: 

>* 

* OPERATION SPAN * 

Enter decimal number between 1 and 20 
or 

to abort the operation: 

>16 

Memaddr Contents 

00000000 (V_INSTR) ISPSHI- 
(V_FILE) 2 
(V_SAD) (0:0) 
00000001 (V_INSTR) ISPSHI- 

(V_MAD) (1:0) 
(V-SAD) (0:0) 
00000002 (V_INSTR) IFWRITE 

(V-SAD) (0:0) 
00000003 (V-INSTR) ISPSHI- 

(V-FILE) 2 
(V-SAD) (0:0) 
00000004 (V-INSTR) ISPSHI- 

(V-MAD) (1:1) 
(V-SAD) (0 : 0) 
00000005 (V_!NSTR) IFWRITE 
(V-SAD) (0 : 0) 
00000006 (V-INSTR) ISPSHI- 
(V-FILE) 2 
(V-SAD) (0:0) 
00000007 (V-INSTR) ISPSHI- 

(V-MAD) (1:0) 
(V-SAD) (0:0) 
00000008 (V-INSTR) IFWRITE 
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(V_SAD) (0:0) 
00000009 (V_iNSTR) ISPSH1_ 
(V-fILE) 2 
(V_SAD) (0;0) 
OOOOOOOA (V_INSTR) ISPSH1_ 
(V_MAD) (1 : 1) 
(V_3AD) (0:0) 
OOOOOOOB (V_1NSTR) IFWRITE 
(V_5AD) (0:0) 
OOOOOOOC (V_1NSTR) ICSTOP 
OOOOOOOD (V_NULU 0 
OOOOOOOE (VJ^ULL) 0 
OOOOOOOF (V_NULL) 0 



D1so)aij Register 

Enter letter of operation: 

d (i sol ay) 
g (o execute) 

Y (list debug ops) 
r (emove break) 
s (et) 
t (race) 

q (uit ^ bait axec) 

>d 

Enter one of choices below: 

m (emory) 
r (egister) 
s (tack top) 
b (reak) 

* (program counter) 

>r 

Enter one of following: 

’v‘ - addr value prompt 
■@* - to abort the operation: 

>v 

Enter decimal segment * between 0 and 0 
or 

t .0 abort the operation: 

>0 

Enter decimal offset between 0 and 31 
or 

to abort the operation: 

>0 



* OPERATION SPAN * 
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Enter decimal number between 1 and 20 
or 

to abort the operation: 

>5 

Regnum Contents 

00000000 (V-J^ULL) 0 
00000001 (V_NULL) 0 
00000002 (V_NULL) 0 
00000003 (V_NULL) 0 
00000004 (V^ULL) 0 

Displau StecktoD 

Enter letter of operation: 

d (isplay) 
g (o execute) 

7 (list debug ops) 
r (emove break) 
s (et) 
t (race) 

q (uit halt exec) 

>d 

Enter one of choices below: 

m (emory) 
r (eglster) 
s (tack top) 
b (reok) 

* (program counter) 

>s 

Enter one of following: 

‘v‘ - segment value prompt 
- to abort the operation: 

>v 

Enter decimal segment * between 0 and 0 
or 

to abort the operation: 

>0 

Top of Slack; 

00000 IFF (V_NULL)0 



Display Breakpoints 

Enter letter of operation: 

d (isplay) 
g (o execute) 
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? (list debug ops) 
r (amove break) 
s (et) 
t (race) 

q (uit a halt exec) 

>d 

Enter one of choices below: 

m (emory) 
r (egister) 
s (tack top) 
b (reak) 

* (program counter) 

>P 

Enter T to continue 
or 

to abort the operation: 

>1 

*■»*»**•»**■»***■»■»**■»***•»* 

* 3REAKPQINTS * 
*•»****************•»■»•»*■» 



BRKNUM MEMADDR OPCODE 
0 
1 

2 

3 

4 

5 

6 
7 

Display Program Counter 

Enter letter of operation: 

d (Isplay) 
g (o execute) 

? (list debug ops) 
r (amove break) 
s (et) 

I (race) 

q (uit & halt exec) 

>d 

Enter one of choices below: 
m (emory) 
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r (eglster) 
s (lack lop) 
b (reak) 

* (proaram counler) 

>* 

Enler one of following: 

T lo confirm display pc 
lo abort the operation 

>! 

PR6M COUNTER in segment 0 at offset 0. 

SET OPERATIOHS 
Set Memory 

Enter letter of operation: 

d (i splay) 
q (o execute) 

? (list debug ops) 
r (emove break) 
s (et) 
t (race) 

q (uit & halt exec) 

>s 

Enter one of choices below: 

m (emory) 
r (egister) 
s (tack top) 
b (reak) 

* (program counler) 

>m 

Enter one of following: 

V - memaddr value prompt 

V - lo abort the operation: 

>v 

Enter decimal segment * between 0 and 1 
or 

to abort the operation: 

>0 

Enter decimal offset between 0 and 1023 
or 

to abort the operation: 

>13 
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♦*** Entering Value to be Stored **** 



Enter number besides type desired: 



1 - BOOL 


2 -NAT 


3- INT 


4 


5-CSTR 


6 -MAO 


7 -RAD 


8 


9 - FILE 


10- INSTR 


1 1 - MOP 


12 


13 -ROP 


14 -BOP 


^ - abort op 





>10 

Enter HEX opcode 
or 

to abort the operation: 

>3831 

*** Entering Operand * 1 *** 

**** Entering value to be Stored **** 

Enter number besides type desired: 



1 - BOOL 


2 -NAT 


3- INT 


4 


5 - CSTR 


6 - MAD 


7- RAO 


8 


9 - FILE 


1 1 - MOP 


12- OOP 


13 


14- BOP 


^ - abort op 







>3 

Enter decimal number between 

-2147483647 & 2147483647 (no •/): 
or 

to abort the operation: 

>500 

*** Entering Operand *2 *** 

**** Entering Value to be Stored **** 

Enter number besides type desired: 



1 - BOOL 


2 -NAT 


3- INT 


4 


5-CSTR 


6 -MAD 


7 -RAD 


8 


9 - FILE 


1 1 - MOP 


12-DOP 


13 


14 -BOP 


« - abort op 







>7 

Enter one of following: 

V - regaddr value prompt 
- to abort the operation: 

>v 

Enter decimal segment * between 0 and 0 
or 



■CHAR 

■SAD 

-OOP 



■ CHAR 

■ SAD 
- ROP 



CHAR 

SAD 

ROP 
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to abort the operation: 

>0 

Enter decimal offset between 0 and 31 
or 

’€►* to abort the operation: 

>31 

Enter letter of operation: 

d (Isplay) 

0 (o execute) 
y (list debug ops) 
r (emove break) 
s (et) 
t (race) 

q (uit& halt exec) 

>d 

Enter one of choices below: 

m (emory) 
r (egister) 
s (tack top) 
b (reek) 

* (program counter) 

>m 

Enter one of following: 

V - addr value prompt 
■** - for current PC value 
- to abort the operation: 

>v 

Enter decimal segment ^ between 0 and 1 
or 

to abort the operation: 

>0 

Enter decimal offset between 0 and 1023 
or 

to abort the operation: 

>13 

^ 0PERAT1GN SPAN ^ 

Enter decimal number between 1 and 20 
or 

to abort the operation: 

>2 

Memaddr Contents 
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OOOOOOOD (V_!NSTS) in_l_R_ 
(V-lffT) 500 
(V_RAD) (0:31) 
OOOOOOOE (V_NULL) 0 



Set Register 

Enter letter of operation: 

d (isplay) 
a (o execute) 

? (list debug ops) 
r (emove break) 
s (et) 

I (race) 

q (ult & halt exec) 

>s 

Enter one of choices below: 

m (emory) 
r (eglster) 
s (tack top) 
b (reak) 

(program counter) 

>r 

Enter one of following: 

V - regaddr value prompt 
*@’ - to abort the operation: 

>v 

Enter decimal segment * between 0 and 0 
or 

to abort the operation: 

>0 

Enter decimal offset between 0 and 31 
or 

to abort the operation: 

>13 



Entering Value to be Stored 
Enter number besides type desired: 



1 - BOOL 


2 -NAT 


3- INT 


4 


5 - CSTR 


6 -MAD 


7 -RAD 


8 


9 - FILE 


10- INSTR 


1 1 - MOP 


12 


13-ROP 


14 -BOP 


@ - abort op 





CHAR 

SAD 

DOP 
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Enter one of following: 

‘V* - stkaddr value prompt 

- to abort the operatlon: 

>v 

Enter decimal segment * between 0 and 0 
or 

to abort the operation: 

>0 

Enter decimal offset between 0 and 51 1 
or 

to abort the operation: 

>56 

Enter letter of operation: 

d (isplay) 
g (o ei^ecute) 

? (list debug oos) 
r (emove break) 
s (et) 
t (race) 

q (uit & halt exec) 

>d 

Enter one of choices below: 

m (emory) 
r (egisler) 
s (lack top) 
b (reak) 

* (program counter) 

>r 

Enter one of following: 

'V* - addr value prompt 

- to abort the operation: 

>v 

Enter decimal segment ^ between 0 and 0 
or 

to abort the operation: 

>0 

Enter decimal offset between 0 and 3 1 
or 

to abort the operation: 

>13 



* OPERATION SPAN * 
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Enter decimal number between 1 and 20 
or 

to abort the operation: 

>2 

Regnum Contents 

00000000 (V_SAD) (0:56) 

OOOOOOOE (V_NULL) 0 



Set StacktOD 

Enter letter of operation: 

d (isplay) 
g (o execute) 

7 (list debug ops) 
r (emove break) 
s (et) 
t (race) 

q (uit a halt exec) 

>s 

Enter one of choices below: 

m (emory) 
r (egister) 
s (tack top) 
b (reak) 

* (program counter) 

>s 

Enter one of following: 

*v* - regaddr value prompt 
V - to abort the operation: 

>v 

Enter decimal segment * between 0 and 0 
or 

to abort the operation: 

>0 

**** Entering Value to be Stored **** 
Enter number besides type desired: 



1 - BOOL 


2 -NAT 


3- INT 


4 


5-CSTR 


6 -MAD 


7 -RAD 


8 


9 - FILE 


10- INSTR 


1 1 - MOP 


12 


13-ROP 


14- BOP 


@ - abort op 





>4 

Enter character 



CHAR 

SAD 

DOP 
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or 

to abort tbe operation: 

>! 

Enter letter of operation: 

d (isplay) 

G (o execute) 

? (list debug ops) 
r (emove break) 
s (et) 
t (race) 

q (uit bait exec) 

>d 

Enter one of choices below: 

m (emory) 
r (egister) 
s (tack top) 
b (reak) 

* (program counter) 

>s 

Enter one of following: 

V - segment value prompt 
- to abort the operation: 

>v 

Enter decimal segment ♦ between 0 and 0 
or 

to abort the operation: 

>0 

Top of Stack: 

00000 IFF (V_CHAR)! 



Set Breakpoints 

Enter letter of operation: 

d (isplay) 
g (o execute) 

? (list debug ops) 
r (emove break) 
s(et) 
t (race) 

q (uit & halt exec) 



Enter one of choices below: 
m (emory) 
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r (egister) 
s (tack top) 

& (reak) 

* (program counter) 

>P 

Enter one of followlno: 

V' - memaodr value prompt 

- to abort the operation: 

>v 

Enter decimal segment ♦ between 0 and 1 
or 

to abort the operation: 

>0 

Enter decimal offset between 0 and 1023 
or 

to abort the ooeration: 

>2 

Enter letter of operation: 

d (isolay) ’ 
g (o execute) 
y (list debug ops) 
r (emove break) 
s(et) 
t (race) 

q (uit & halt exec) 

>s 

Enter one of choices below: 

m (emory) 
r (egister) 
s (tack top) 
b (reak) 

* (program counter) 

>b 

Enter one of following: 

'v‘ - memaddr value prompt 

- to abort the operation: 

>v 

Enter decimal segment * between 0 and 1 
or 

to abort the operation: 

>0 

Enter decimal offset between 0 and 1023 
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or 

to abort the operation: 

>4 

Enter letter of operation: 

d (i splay) 
q (o execute) 
y (list debug ops) 
r (emove break) 
s(et) 
t (race) 

q (uit Sk. halt exec) 

>s 

Enter one of choices below: 

m (emory) 
r (egister) 
s (tack top) 
b (reak) 

* (program counter) 

>b 

Enter one of following: 

V’ - memaddr value prompt 
- to abort the operation: 

>v 

Enter decimal segment * between 0 and 1 
or 

'#■ to abort the operation: 

>0 

Enter decimal offset between 0 and 1023 
or 

*€>* to abort the operation: 

>9 

Enter letter of operation: 

d (isplay) 
g (o execute) 

Y (list debug ops) 
r (emove break) 
s (et) 

I (race) 

q (uit & halt exec) 

>s 

Enter one of choices below: 

m (emory) 
r (egister) 
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s (tack lop) 
b (reak) 

* (program counter) 

>b 

Enter one of following: 

■y’ - memaddr value prompt 

- to abort the operation: 

>v 

Enter decimal segment * between 0 and 1 
or 

to abort the operation: 

>0 

Enter decimal offset between 0 and 1023 
or 

to abort the operation: 

>11 

Enter letter of operation: 

d (isplay) 
q (o execute) 

? (list debug ops) 
r (emove break) 
s(et) 
t (race) 

q (uit & halt exec) 

>s 

Enter one of choices below: 

m (emory) 
r (egister) 
s (tack top) 
b (reak) 

* (program counter) 

>b 

Enter one of following: 

*v‘ “ memaddr value prompt 

- to abort the operation: 

>v 

Enter decimal segment ^ between 0 and 1 
or 

to abort the operation: 

>0 

Enter decimal offset between 0 and 1023 
or 
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to abort the operation; 

>13 

Enter letter of operation: 

d (isplay) 
g (o execute) 

? (list debug ops) 
r (emove break) 
s (et) 

I (race) 

q (uit & halt exec) 

>s 

Enter one of choices below: 

m (emory) 
r (egister) 
s (tack top) 
b (reak) 

* (program counter) 

>b 

Enter one of following: 

‘v‘ - memaddr value prompt 
- to abort the operation: 

>v 

Enter decimal segment * between 0 and 1 
or 

to abort the operation: 

>0 

Enter decimal offset between 0 and 1023 
or 

■@* to abort the operation: 

>12 

Enter letter of operation: 

d (isplay) 
g (o execute) 

? (list debug ops) 
r (emove break) 

3 (et) 
t (race) 

q (uit & holt exec) 

>d 

Enter one of choices below: 
m (emory) 
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r (egister) 

3 (tack top) 

P (reak) 

* (program counter) 

>P 

Enter T to continue 
or 

to abort the operation: 

>! 

*********************** 

* * 

* BREAKPOINTS * 

* * 

*********************** 



BRKNUM MEMADDR OPCODE 

0 

] 

2 OOOOOOOC iCSTOP 

3 OOOOOOOD 

4 OOOOOOOB IFWRITE 

5 00000009 ISPSHI- 

6 00000004 jSPSHl- 

7 00000002 IFWRITE 

Set Program Counter 

Enter letter of operation: 

d (isplay) 
g (o execute) 

V (list debug ops) 
r (emove break) 
s(et) 
t (race) 

q (ult & halt exec) 

>s 

Enter one of choices below: 

m (emory) 

r (egister) 
s (tack top) 
b (reak) 

* (program counter) 

>* 

Enter one of following: 

’v’ - prog cntr value prompt 
- to abort the operation: 

>v 
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Enter decimal segment * between 0 and 1 
or 

to abort the operation: 

>0 

Enter decimal offset between 0 and 1023 
or 

to abort the operation: 

>16 

Sorry, non-lnslr at memaddr. 

Program counter unchanged. 

Enter letter of operation: 

d (isplay) 
q (o execute) 
y (list debug ops) 
r (emove break) 
s (et) 
t (race) 

q (uit & halt exec) 

>s 

Enter one of choices below: 

m (emory) 
r (egisler) 
s (lack top) 
b (reak) 

* (program counter) 

>♦ 

Enter one of following: 

Y - prog cnlr value prompt 
- to abort the operation: 

>v 

Enter decimal segment * between 0 and 1 
or 

to abort the operation: 

>0 

Enter decimal offset between 0 and 1023 
or 

to abort the operation: 

>2 

Enter letter of operation: 
d (isplay) 
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q (o execute) 

? (list debug ops) 
r (emove break) 
s (et) 
t (race) 

q (uit & halt exec) 



Enter one of choices below: 

m (emory) 
r (egister) 
s (tack top) 
b (reak) 

* (program counter) 

>* 

Enter one of following: 

T to confirm display pc 
to abort the operation 



PRGM COUNTER In segment 0 at offset 2. 



Enter letter of operation: 

d (Isplay) 
g (o execute) 

? (list debug ops) 
r (emove break) 
s(el) 
t (race) 

q (uit & halt exec) 



Enter one of choices below: 

m (emory) 
r (egister) 
s (tack top) 
b (reak) 

* (program counter) 



Enter one of following: 

'v' - prog cnlr value prompt 
- to abort the operation: 



Enter decimal segment * between 0 and 1 
or 
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to abort the operation: 

>0 

Enter decimal offset between 0 and 1023 
or 

to abort the operation: 

>0 

TRACE / GO OPERATIONS 

Trace On with Go Uncontrolled 
Enter letter of operation: 

d (i splay) 
g (o execute) 

? (list debug ops) 
r (emove break) 
s (et) 
t (race) 

q (uit hall axec) 

>t 

Enter one of following: 

Oecimai number between 1 and 20 
T for trace on* 

* 2 * for ‘trace off' 

■@* to abort the operation: 

>! 

Enter letter of operation: 

d (isplay) 
g (o execute) 

? (list debug ops) 
r (emove break) 
s (et) 
t (race) 

q (uit & halt exec) 

>9 

Enter one of choices below: 

Decimal range btwn 1 and 20 
r - uncontrolled go 

- to abort the ooeration 
>i 

00000000 (V_INSTR) ISPSHI- 

(V_FILE) 2 
(V_SAD) (0:0) 

00000001 (V_INSTR) ISPSHI_ 

(V_MAD) (1:0) 

(V_SAD) (0:0) 
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BREAKPOINT ENCOUNTERED 






* THE DEBUGGER * 



Trace Off with Go Uncontrolled 
Enter letter of operation; 

d (isplay) 
q (o execute) 

Y (list debug ops) 
r (emove break) 
s (et) 
t (race) 

q (uit 8c halt exec) 



Enter one of following: 

Decimal number between 1 and 20 
T for ’trace on' 

’ 2 ’ for 'trace off’ 

■@’ to abort the operation: 



Enter letter of operation: 

d (isplay) 
q (o execute) 

Y (list debug ops) 
r (emove break) 
s(et) 
t (race) 

q (uit Sc halt exec) 



Enter one of choices below: 

Decimal range btwn 1 and 20 
T - uncontrolled go 

- to abort the operation 



^ BREAKPOINT ENCOUNTERED ^ 



THE DEBUGGER 



Enter letter of operation: 



d (isplay) 
q (o execute) 

7 (list debug ops) 
r (emove break) 
s (et) 
t (race) 

Q (uit & halt exec) 



Enter one of choices below; 

m (emory) 
r (egister) 
s (tack too) 
b (reak) 

^ (program counter) 



Enter one of following; 

‘i‘ to confirm display pc 
to abort the operation 



PRGM COUNTER in segment 0 at offset 4. 



Go n Instructions 

Enter letter of operation; 

d (isplay) 
g (o execute) 

V (list debug ops) 
r (emove break) 
s (et) 
t (race) 

q (uit & halt exec) 



Enter one of choices below; 

Decimal range btwn 1 and 20 
'!' - uncontrolled go 

- to abort the operation 



Indicated number of mstrs done. 

^ THE DEBUGGER * 



Enter letter of operation; 
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d (Isplay) 
a (o execute) 

? (list debug ops) 
r (emove break) 
s(et) 
t (race) 

q (ult & bait exec) 

>d 

Enter one of choices below: 

m (emory) 
r (eglster) 
s (tack top) 
b (reak) 

* (program counter) 

>* 

Enter one of following: 

T to confirm display pc 
'€>■ to abort the operation 

>1 

PR6M COUNTER in segment 0 at offset 5. 



Enter letter of operation: 

d (isplay) 
q (o execute) 

? (list debug ops) 
r (emove break) 
s(et) 
t (race) 

q (ult & halt exec) 
>d 

Enter one of choices below: 

m (emory) 
r (eglster) 
s (tack too) 
b (reak) 

* (program counter) 
>b 

Enter T to continue 
or 

to abort the operation: 

>! 
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* * 

* BREAKPOINTS * 

^ * 

««««««««««««««««««««««« 

BRKNUM MEMADDR OPCODE 
0 
1 

2 OOOOOOOC ICSTOP 

3 OOOOOOOD 1M_I_R_ 

4 OOOOOOOB IFWRITE 

5 00000009 ISPSHI_ 

6 00000004 ISPSHl- 

7 00000002 IFWRITE 

Remove Breakpoints 

Enter letter of operation: 

d (ispiay) 
g (o execute) 

? (list debug ops) 
r (emove break) 
s (et) 
t (race) 

q (uU& halt exec) 

>r 

Enter decimal break number between 0 and 7 
or 

*@* to abort the operation: 

>0 

Breakpoint not in Table. 

Enter letter of operation: 

d (ispiay) 
g (o execute) 

? (list debug ops) 
r (emove break) 

s (et) 

I (race) 

q (uit & halt exec) 

>r 

Enter decimal break number between 0 and 7 
or 

to abort the operation: 

>7 

Enter letter of operation: 
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d (isplay) 
g (o execute) 

? (list debug ops) 
r (emove break) 
s (el) 

I (race) 

q (uit & hall exec) 

>d 

Enter one of choices below: 

m (emory) 
r (eglster) 
s (tack top) 
b (reak) 

* (program counter) 

>b 

Enter T to continue 

or 

to abort the operation: 

>1 

* * 

* BREAKPOINTS * 

* « 



BRKNUM MEMADDR OPCODE 
0 
1 

2 OOOOOOOC ICSTOP 

3 OOOOOOOD IM_I_R_ 

4 OOOOOOOB IFWRITE 

5 00000009 ISPSHI_ 

6 00000004 ISPSHI- 

7 

Stepping Through Program Execution 
Enter letter of operation: 

d (isplay) 
g (o execute) 

? (list debug ops) 
r (emove break) 
s(el) 
t (race) 

q (uit & halt exec) 

>9 
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Enter one of choices below: 

Decimal range btwn 1 end 20 
T - uncontrolled go 

- to abort the operation 

>! 

** BREAKPOINT ENCOUNTERED ** 

*4t************^************* 

* THE DEBUGGER * 

«««««««««««««««««««««««««««» 



Enter letter of operation: 

d (isplay) 
g (o execute) 

7 (list debug ops) 
r (emove break) 
s (9t) 
t (race) 

q (uit & halt exec) 

>d 

Enter one of choices below: 

m (emory) 
r (egister) 
s (tack top) 
b (reak) 

* (program counter) 

>* 

Enter one of following: 

T to confirm display pc 
to abort the operation 

>! 

PRGM COUNTER in segment 0 at offset 9. 



Enter letter of operation: 

d (isplay) 
q (o execute) 

7 (list debug ops) 
r (emove break) 
s (et) 
t (race) 

q (uit & halt exec) 
>r 
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Enter decimal break number between 0 and 7 
or 

to abort the operation: 

>4 

Enter letter of operation: 

d (Isplay) 
q (o execute) 

? (list debug ops) 
r (emove break) 
s(et) 
t (race) 

q (uit & halt exec) 

>9 

Enter one of choices below: 

Decimal ranoe btwn 1 and 20 

T - uncontrolled go 

*#• - to abort the ooeration 

>1 

BREAKPOINT ENCOUNTERED ** 

* THE DEBUGGER * 



Enter letter of operation: 

d (Isplay) 
q (o execute) 

7 (list debug ops) 
r (emove break) 
s(et) 
t (race) 

q (uit & halt exec) 

>d 

Enter one of choices below. 

m (emoru) 
r (egister) 

3 (tack top) 

b (reak) 

* (program counter) 

>* 

Enter one of following: 

T to confirm display pc 
*@* to abort the operation 
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PR6M COUNTER in segment 0 at offset 12. 



>! 



Enter letter of operation: 

d (Ispiay) 
q (o execute) 

? (list debug ops) 
r (emove break) 
s (et) 
t (race) 

q (uit & halt exec) 



Enter one of choices below: 

Decimal range btwn 1 and 20 
T - uncontrolled go 

- to abort the operation 



AM: End of execution 32 
_DC=OOOOOOOC 

* THE DEBUGGER * 



Enter letter of operation: 

d (ispiay) 
g (o execute) 

? (list debug ops) 
r (emove break) 
s(et) 
t (race) 

q (uit & halt exec) 



Enter one of following: 

T to END DEBUG AND EXECUTION 
to abort operation: 



Enter letter of operation: 

d (ispiay) 
g (o execute) 

7 (list debug ops) 
r (emove break) 
s (et) 
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I (race) 

q (ult & halt exec) 



Enter one of choices beJow: 

Decimal range btwn 1 and 20 
T “ uncontrolled go 

- to aoon. the operation 



Enter letter of operation: 

d (Isplay) 
q (o execute) 

? (list debug ops) 
r (emove break) 
s (et) 
t (race) 

q (ult & halt exec) 



Enter one of followlno: 

T to END OESaG AND EXECimCN 
to abort operation: 



Exiting Debugger, Halting Execution. 
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APPENDIX B: DEBUGGER COMMAND SYNTAX SYMBOLS 



The following symbols are used to describe the general syntax of all the 



debugger comands: 




'd' 


DISPLAY 


's' 

'g' 


SET or STACK (depending on context) 
60 AND EXECUTE 


'?' 


LIST AVAILABLE DEBUG COMMANDS 


r 


REMOVE BREAKPOINT 


'V » 

1. ” 


TRACE EXECUTION 


'm' 


MEMORY 


r 


REGISTER 




PROGRAM COUNTER 


segment - 


RESOURCE SEGMENT NUMBER 


offset 


SEGMENT OFFSET ADDRESS 


span 


NUMBER OF OPERATIONS TO BE PERFORMED 


{} 

1 


ONE ITEM IN BRACES MUST BE CHOSEN 
OR 


'!' 


ON or OK (depending on context) 


'Z' 


OFF 


brknum - 


BREAKPOINT NUMBER 


value 


data VALUE 


val_type - 


data TYPE 
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APPENDIX C: DEBUGGER PROGRAM FILES 



Debugger Header File 



OEBUG.H : Basic typedefs, defines, and glcbals for the Afldeougger. 
-AM version 1.0 - Z100 

-This file is included in all the debugger modules. 

Changes: 

^ifndef DEBUG_H 

^define DEBUGJH 



display defines 



'^define 

^define 

^define 

^define 

^define 


DISPLIIEM 

DISPLREG. 

01SPL5TK 

DiSPLBRK 

0ISPL_PC 


000 

010 

020 

030 

040 


go define 






^define 


GOEXEC 


100 


/** help define 




^define 


HELP 


200 


remove breakpoint define 




^define 


REMOVBRK 


300 


set defines **/ 




^define 

define 

^define 

^define 

^define 


SETMENR 

5ETREGR 

SETSTK 

5ETERK 

SET_PC 


400 

410 

420 

450 

440 


/** trace defines 




^define 


TRACEOP 


500 



quit defines 
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^define QUITDEBG 600 



atomic types and defin 2 s 



^define 


UNDEFND 


-1 




'^’define 


TRUE 


1 




-define 


FALSE 


0 




^define 

^define 


MAXBRKS 


3 


Max ^ of breaks allowed 


MAXEXECS 


20 


Max * instrs to execute 
before returning to debug 




^define 


MAXLINES 


20 


Max items ondebua screen 


^define 


nXDECSTR 


12 


Max chars in DECIMAL input 








string; iO for chars in INT 
strina, 1 for null stnna 








terminator and 1 for sign 


^define 

input 


MXHEXSTR 


5 


Max chars in HEXlDECiMAL 








string; 4 for chars in INT 
string and 1 for null string 
terminator. 


define 


nXlNPSTR 


2 


Max chars in PROMPT input 



string; 1 for char in prompt 
string and 1 for null string 
terminator. 



■"^define 


TRACEON 


-1 


Couldn't use 1 due to span 


■^■define 


TRACEOFF 


0 


conflict.’^/ 



typedef int BOOLN; So named to prevent AMdef conflict 

typedef struct { 
int oprtn; 
long rngebegn; 
long rng 2 span: 

VAL '‘val; Z'* VAL typedef in amtupe.h 

300LN adortOD; 

} OPTION; 

typedef struct { 

address memaddr; 
short opcdval; 

} BREAKS; 

^endif 
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Debugger Driver File 



/« DEBUG.C : Driver module for the All debugger. 

-AN version 1.0 - Z100 
Chanaes: 



^include "amdef.h" 
^include "amtype.h" 
include "amextern-h" 
^include <setjmD.h> 
^include "debug.h" 

EXTERNAL REFERENCES 



extern 


jmp_buf 


"*_context; 


extern 


char 


^stripblkO; 


extern 


short 


getopndO; 


extern 


short 


qtopcdexQ; 


extern 




displmemO; 


extern 




dispIregO; 


extern 




displstkO; 


extern 




displbrkO; 


extern 




displ_pc(); 


extern 




goexecO; 


extern 




nelpQ; 


extern 




removbrkO; 


extern 




setmemrO; 


extern 




setregrO; 


extern 




setstkQ; 


extern 




setbrkQ; 


extern 




set_pc(); 


extern 




traceopQ; . 


extern 




quitdebgO; 



GLOBAL VARIABLES 



defined in main()/am.c '*/ 
from debugutl.c */ 
from arninstr.c 
all from debugopr.c ’^Z 



OPTION debd_ODt; 

Z^GETRESRCO 

function: 

-This function prompts the user for the resource to be 
operated upon and returns the key character for the 
resource indicated. 

interface: 
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called by: 

getoprO 



calls: 

stripblkQ/debugutl.c 



errors: 






cbar 

getresrcO 
{ char ^strptr; 

char inpstrlMXlNPSTR]; MXINPSTR = 2 ♦♦/ 

do { 

fprintf(sidQut,"Enter one of cnoicesbe!ow:\n\n"); 
fprintf(stdout,"\t\tm (emory)\n\t\tr (eqister)\n"); 
fprintnstdout,’’\t\ts (tack top)\n\t\tb (“reak)\n"); 
fprlntf(stdout/'\t\t’* (program counter)\n\n"); 

rscanf(stdin,"^ls",inpstr); 

strptr = stripblk(inpstr); 

if (strlen(strptr) == 0) { 

fpnntf(stdout,’’No choice enteredAn"); 

^ fprintffstdout/One MUST be specifiedAnXn"); 

else 

switch(strptr[01) { 

case 'm': return('m’); 

case 'r': return(’r’); 

case 's’: return(’s'); 

case 'b': return(’b’); 

case return(’^')‘. 

default: 

fprintf(stdout, "Invalid responseAn") 

) 



) 

while (TRUE); 
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) 

/^GETOFRO 

function: 

-This function maps the ascii user operation request 
into an debugger operation code and returns the code. 

interf ace: 

called by: 

debugO 



calls: 

stripbikQ/debugutl.c 

getresreO 



errors: 






int 

getoprO 

{ char ^strptr; 

char inpstrlMXINPSTRl; MXINPSTR = 2 

do{ 

fprintf(stdout,"\nEnter letter of operation:\n\n"); 
fprintf(stdout,"\t\td (isplay)\n\t\tg (o execute)\n"); 
fprintf(stdout,"\t\t? (list debug ops)\n"); 
fprintf(stdout,"\t\tr (emove break)\n\t\ts (et)\n"); 
fprintf(stdout,"\t\tt (race)\n\t\tq (uit & halt exec)\n\n"); 
fscanf(stdin."«ls",inpstr); 

strptr = stripblk(inpstr); 

if (strlen(strptr) == 0) { 

fprintf(stdout,"No operation enteredAn"); 

^ fprintf(stdout,"One MUST be specif iedAnXn"); 

else 

3witch(sirDtr[0|) { 
case 'd': 

case 's': switch(getresrcO) { 

case 'm': if (strptr[01 == 'd') 

returnCDlSPLMEn); 

return(SETMEnR); 

case 'r': if (strptrfOl == 'd') 

return(DlSPLREG); 

return(SETREGR); 
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case 's': if (strptr[01 == 'd') 

r8turn(DISPLSTK); 

r2turn(SETSTK); 

cas2 'b': if (strptriO] == 'd') 

r2turn(DlSPLSRK); 
r2turn(SETBRK); 
cas2 if (strptr[0] == 'd') 

r2turn(DISPL_PC); 

r2turn(SET_PC); 



} 

cas2 'g': r2turn(GOEXEC); 
cas2 r2turn(HELP); 
cas2 'r': reiurn(REriOVBRK); 
cas2 't': return(TRACEOP); 
cas2 'q': r2turn(QUlTDEBG); 



d2fault: fprintf(stdout, "Invalid op2ration.\n"); 



) 



} 

whil2 (TRUE); 



} 

/*«DEBUG() 

functioa- 

-This is th2 driv2r function forth2 int2ractiv2 d2buq- 
ger. 

int2rfac2: 

(x) br2akflg/am.h 

(p) i instruction pointGr 

(p) m program counter value 

(g; debg_ODt vanaole for debugger ooeraticn 

called by: 

main()/am.c 



calls; 



getopnd()/aminstr.c 

gtopcdex()/debugopr.c 

getoprO/ 
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dispImemO/debugopr.c 

dispIrsgO/debugopr.c 

dispistkO/debugopr.c 

dispIbrkQ/debugopr.c 

dispi_pc()/debugopr.c 

goexecO/debugopr.c 

help()/debuqopr.c 

removbrkO/debugopr.c 

setmemrO/debugopr.c 

setregrQ/debugopr.c 

setstkQ/debugopr.c 

setbrkQ/d2bugopr.c 

set_pc()/debugopr.c 

trac2opQ/debuaopr.c 

guitd2bg0/d2bugopr.c 



2rrors: 



d2bug(i,m) 

INSTR 

MAO 

{ short brknum; 

OPTiON ^opt; 

BOOLN diff_pc = FALSE; 

fprintf(stdout 

fprintf(stdout;"\t\t*' THE DEBUGGER "Xn") 

fprintf(stdout 



Exchang2 th2 d2bug opcod2for th2 r2gular opcod2^^/ 
if (br2akflg) { 

brknum = g2topnd(i->val[0].opcdval): 
i->val[ 0 ].opcdval = gtopcd2x(brknum); 
br2akflg = 0 ; 



opt = &d2bg_opt; 



opt->oprtn = UNDEFND; 
opt->rng2b2gn = UNDEFND; 
opt->rng2span = UNDEFND; 
opt->vaT = NULL; 
opt->abortop = FALSE; 

switch(g2topr()) { 
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cas2 DISPLMEM: 


dispim2m(opt); 

br2ak; 


cas2 OISPLREG: 


displr2g(opt); 

break; 


cas2 OISPLSTK: 


displstk(opt); 

break; 


cas2 DISPLBRK: 


displbrk(opt); 

break; 


cas2 01SPL_PC: 


dispLpc(opt); 

break; 


cas2 GOEXEC: 


qoexec(opt); 

break; 


cas2 HELP: 


help(oDt); 

break: 


cas2 REMOVBRK: 


removbrk(opt); 

break; 


cas2 SETMEnR: 


setmemr(opt); 

break; 


cas2 SETREGR: 


setregr(opt); 

break; 


cas2 SETSTK: 


setstk(opt); 

break; 


cas2 SETBRK: 


setbrk(opt); 

break; 


cas2 SET_PC: 


set__pc(opt); 

break; 


cas2 TRACEOP: 


traceop(opt); 

break; 


cas2 QU1TDE3G: 


quitdebg(opt); 



} 

if ((!(opt->abortop)) && (opt->oprtn == GOEXEC)) ( 
if (diff_pc) ( 

debugflag = 0; K22ps d2bugq2r from 

b2ing call2d afi2r S2tjmp() 
in main()/am.c 
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) 

return; 



longjmp(_context,i); 



) 

if ((!(opt->abortop)) && (opt->oprtn == SET_PC)) 
diff_pc = TRUE; 

while (TRUE); 
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Debugger Operations File 



DEBUGOPR.C : This module contains the 
for the AM debugger. 

-AM version 1.0 - ZlOO 

Changes: 



^include "amdef.h” 

^include "amtype.h" 
^include "amexterah" 
^include "debug.h” 

EXTERNAL FUNCTIONS *J 



extern 


char 


^stripbikO; 


extern 




str2hexQ; 


extern 




strSdect); 


extern 


address 


cnvZaddrO; 


extern 


short 


getopcodeO 


extern 


short 


getopndO; 


extern 


char 


^pmallocO; 


extern 




fmallocQ; 


extern 


VAL 


^fetchmO; 


extern 


STATE 


storemQ; 


extern 


VAL 


^fetchrij; 


extern 


STATE 


storerO; 


extern 


VAL 


^topstkO; 


extern 




storestkO; 



in 

extern char ^amdefsO; 
LOCAL GLOBAL VARIABLES^/ 



SET initialization functions 



both from debugutl.c 

both from aminstr.c 
all from amstate.c **/ 

an EXCLUSIVE debugger function 
in amstate.c 
from amcutl.c 



3COLN inst_gei = FALSE;/'* When true, used to keep getvaiue() from 

allowing recursive calls to get_inst() **/ 

long_seqnum; 
long _on set; 

BREAKS brktable[MAXBRKS]; 
short mt_slots[MAXBRKSl; 
short topslot; 



static 

static 

static 
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static BOOLN mt_ip.it = FALSE; 

Teils if mt_sIots(l initialized. Note the 
initialization is done once! (ref 'C’ manual)^/ 



/^GTOPCDEXO 

functioa* 

-returns the opcodestored in the brktabie at slot 'brknumL 

interface: 

(p) brknum 
(g) brktabled 

called by: 

BebugO/debug.c 

copyvalQ/amcutl.c 

showmemQ/amcutl.c 



calls: 

errors: 



gtopcdex(brknum) 
short brknum; 



if (brktable[brknum].opcdval == UNDEFND) 
return(O); 

return(brktable[brknum].opcdval); 



/»«GETRANGE() 

function: 

-This function prompts the user for range value. 

interface: 

(p) opt 
(p) maxnum 

called by: 

dipslmemQ 

dispIregO 

str2dec0/debugutl.c 



calls: 

errors: 
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aetranqe(opt,maxnum) 
OPTION ^opt: 
int maxnum; 

{ char ^strptr; 

char inpstrlMXDECSTR]; 
long number; 
BOOLNvalidnum; 

do { 



rprintf(stdout,"\t\t^ OPERATION SPAN ^\n\n"); 
fprintf(stdout,"Enter decimal number between 1 
fprintustdout," and ^d\n\t\tor\n", maxnum); 
fprintf(stdout/"@' to abort the operation: \n"); 
fscanustdin/^lOsTinpstr); 

strptr = stnpblk(inDstr); 

if (strptr(0l == '<?>’) { 

opt->abortop = TRUE: 
return; 



str2dec(strptr,&validnum,8<number); 
if (Ivalidnum) { 

fprintf(stdout, "Invalid number enteredAn"); 
continue; 



if ((number < 0) | 1 (number > maxnum)) { 

fprintf(sidout, "Number out of rangeAn”); 
continue; 



-This function prompts the user for segment value. 



opt->rnqespan = number; 
return; 



while (TRUE); 




interface: 



(p) 



pj mxsegnum 
p) abortop 



called by: 
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dipsImemO 

dispireaO 

displstl<0 

setmemrO 

setregrO 

setstkO 

setbrkQ 

set__pcO 

get_radQ 

get_sadQ, 

geL_mad() 



calls: 

stripblk(ydebugutl.c 

str2decU/debugutl.c 



errors: 






long 

qet_seqm(abortop, mxsegnum) 
BOCLN'^abortop; 



int fnxseanum: 



{ char *^strptr; 

char inpstr(hXD£CSTRl; 
lonq number; 
BOOLNvalidnum; 



fprintf(stdout, "Enter decimal segment ^ between 0 "); 
fprintfistdout," and ^d\n\t\tor\n", mxsegnum); 
fprintf(stdout/"@' to abort the operation: \n”); 
fscanf(stdin,"^10s",inpstr); 

strptr = stripblk(inpstr); 

if (strptrlOl == ’@0 { 

*^abortOD = TRUE; 
return(O); 



str2dec(strptr,Scvaiidnum,&number); 
if (Ivaiidnum) { 

fprintf(stdout, "Invalid number enteredAn"); 
continue; 



if ((number >= 0) && (number <= mxsegnum)) { 
return(number); 
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fprintf(stdout,”5egm2nt ^ out of rana2.\n"); 
continu2; 



whil2 (TRUE); 



1 

/>^GET_OFST() 

function: 

-This function prompts th2 us2r for offs2t vaiu2. 

intcrf ac2: 

(p) mxoffset 
(p) abortop 

call2d by: 

dipslm2m() 

dispir2a() 

S2tm2m>() 

S2tr2qr() 

S2tbr«) 

32t__pc0 

g2t_radQ 

g2t_sadQ 

get_mad() 

calls: 

stripblkQ/d2bugutl.c 

Str2d2c0/d2bugutl.c 

2rrors: 






long 

g2t_of st(abortop, mxoffs2t) 

BOOLN ^abortop; 
long mxoffs2t; 

{ char *<strptr: 

char inpstr[HXDEC5TR|; 
long numD2r: 

BOCLNvalidnum; 

do { 

fprlntf(stdout,"Ent2r d2cimal offs 2t b2tW22n 0 "); 
fprintustdout/’ and ^d\n\t\tor\n",mxoffs2t); 
fprintf(stdout,”’@’ to abort th2 op2ration: \n"); 
fscanf(stdin,"^IOs",inpstr); 
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strptr = stripblk(inpsir); 

if (strptr(0] == '@') { 

^abortOD = TRUE; 
return(O); 



3tr2d2c(strptr,&vaiidnum,^number); 
if (ivalidnum) { 

fprintf(stdout, "Invalid numb2r 2nt2r2dAn"); 
continu2; 

} 

if ((numb2r < 0) | 1 (numb2r > mxoffs2t)) { 

fpnntf(stdout,'’Offs2t out of rang2.\n”); 
continu2; 

} 

r2turn(numb2r); 
wnil2 (TRUE); 



) 

/^DISPIMEMO 

function: 

-This function performs the 'display memory’ operation. 

interface: 

I p) opt 

X) _numusrseg/am.h 
x) _pc/am.h 
x) _mem[]/am.h 
q) _segnum 
g) -offset 
>0 debgtask/am.h 

called by: 

debugO/debug.c 



calls: 



getrange() 

letchmO/amstate.c 

showmem()/amcuti.c 



cnv2addr(Vdebuqutl.c 
str ipb I k()/debuqut 1 ,c 
get_segrn() 
geLofslQ 



errors: 
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disolnRem(opt) 

OPTION ^opt; 

{ char ^strptr; 

char inpstrlMXlNPSTR]; 
long i; 

long number: 
long total mem = 0; 

BOOLNvalidnum; 

MAD tmpaddr; 

opt->oprtn = OlSPLilEM; 

do { 

fprintfCstdout, "Enter one of following:\n"); 
fprintf(stdout,"\t\tV - addr value promptXn"); 
fprjntf(stdout’’\t\t''^' - for current PC vaiueXn"): 
fprintf(stdout,"\t\t’©' - to abort the operation: \n"): 
f scanf(stdin,"^ls",inDStr); 

strptr = stripbik(inpstr); 



if (strptriO] == ’®’) { 

opt->abortop = TRUE; 
return; 

} 



if (strptrlOl == { 

-segnum = (_pc.val & X_SEGMSK) » X_SEGSFT; 
-Offset = -pc.val & X-ADRMSK; 
getrange(opt, MAXLINES); 
break; 

} 

if (strptrlOl == V) { 

-segnum = get_segm(&opt->abortop, _numusrseg - 1); 

if (opt->abortop) 
return; 

-Offset = get-ofst(&ODt->abortoD, 

-jTiemLsegnumlsize - I); 



if (opt->abonop) 
return; 

getrange(opt, MAXLINES); 
break; 
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fprintf(3tdout,’'lncorr2ct r2spons2.\n"); 



while (TRUE); 

if (opt->abortop) 
return; 

debgtask = 1; 

f printf (stdout/’Memaddr Contents\n\n"); 

if (opt->rngespan == UNDEFND) ( 

tmpaddr.va) = cnv2addr(_seanum_offset); 

^ showmem(&tnnpaddr,f etchmC^tmpaddr.Q)); 

else { 

i = 0; 

whiie((i < opt->rnaesDan) (_seGnum < _numusrseg)) { 
tmpaddr.val = cnv2addr(_seQnuml.offset); 
showmem(&tmpaddr,f 2 tchm(itmpaddr,Q)); 
i++; 

_offset+^; 

if (-Offset == _memLsegnum].size) { 

-Offset - 0; 

-segnum++; 



} 

debgtask = 0; 



} 



/^DISPLREGQ 

function: 



-This function performs the 'display register' operation, 
interface: 

(p) opt 

(xj —numregseq/am.h 
Jx) _regn/am.hf 
[g) -seqnum 
g) -offset 
[x) debgtask/am.h 

called by: 

debugO/debug.c 



calls: 
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getranaeO 

I 2 tchr 0 /amstate.c 

showmemQ/amcutl.c 

cnv2addr()/deduqutl.c 

stripbIkO/debuqutl.c 

get_segmO 

get_ofst(; 



errors: 



V 



displreg(opt) 
OPTION «opt: 



{ char ^strptr; 

char inpstrlMXDECSTR]; 
long i: 

long number; 
long numreas = 0: 

BOOLNvaliSnum; 

RAD tmpreg; 

opt->oprtn = OISPLREG; 

do { 

fprintf(stdout, "Enter one of following:\n"); 
fprintf(stdout,"\t\t’v' - addr value promptXn"); 
fprintf(stdout,"\t\t'@' - to abort the operation: \n"); 
fscanf(stdin,”^ls",inpstr); 

strptr = stripblk(inpstr); 

if (strptrtOl == ’@’) { 

opt->abortop = TRUE; 
return; 

} 

if (strptrlO] == V) { 

-segnum = get_segm(&opt->abortop, _numregseg - 1); 

if (opt->abortop) 
return; 

-Offset = get_cfst(8.opt->aDortop^BgUsegnumj.num 



if (opt->abortop) 
return; 

getrange(opt,MAXLlNES); 



88 



br 2 ak; 



J 



f printf(stdout/’Incorr 2 ct r8spcns2.\n"); 



while (TRUE); 

if (opt->abortop) 
return; 



debgtask = 1; 

fprintf(stdout,"Regnum Contents\n\n"); 

if (opt->rngespan == UNDEFND) { 

tmpreg.val = cnv2addr(_seqnum^offset); 

^ showmem(&tmpreg,f etchr(&tmDreg,Q)); 

else ( 

i = 0; 

while((i < opt->rnaesDan) (_3egnum < _numredseg)) { 
tmpreg.val - cnv2addr(_3eanum_offsetJ; 
showrnem(&tmprea,fetchr(^tmpreg,Q)); 
i++; 

_offset++; 

if (-Offset ==_reg[_segnum].num) { 

-Offset = 0; 

_segnum++; 



} 

debgtask = 0; 



/^DISPLSTKQ 

function: 

-This function performs the 'display stack' operation 
interface: 

(p) ODt 

(x) -numstkseg/am.h 

IX) -stk[l/am.h 
(g) -segnum 
(>0 debgtask/am.h 

called by: 

debugO/debug.c 
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calls: 



cnv 2 addrQ/debuqutl.c 
stripblkQ/debugutl.c 
g2t_s8gm0 
get_of st() 



errors: 



displstk(opt) 
OPTION ^opt: 



{ char ^strptr; 

char inpstrlNXDECSTRl; 
long stksize = 0 ; 
int i: 

SAD stktop; 



opt->oprtn = DISPLSTK; 
do { 

fprintf(stdcut,"Enter one of following:\n"); 
fprintf(stdout,"\t\t’y' - segment value promptXn"); 
fprintf(stdcut,"\t\t'( 3 >' - to abort the operation: \n"); 
fscanf(stdin,"^)s'’,inpstr); 

strptr = stripblk(inpstr); 

if (strptrlOl == ’@’) { 

opt->abortop = TRUE; 
return; 

} 

if (strptrlOl == 'v') { 

_segnum = get_segm(&opt->abortop, 

_numstkseg - 1); 

break; 

} 

f pr intf (stdout/'lncorrect responseAn”); 

] 

wnile (TRUE); 

if (opt->abortop) 
return; 

debgtask = 1 ; 

-Offset = _stk[_segnuml.size -1; 
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stktop.val = cnv2addr(_5egnum_offset); 

fprintf(stdout,"Top of StackAn"); 
showmem(&stktop,topstk(&stktop,Q)); 

debgtask = 0; 

} 

/^displbrkO 

function: 

-This function performs the 'display breaks' operation. 

interface: 

(p)opt 
(g) brktable{] 

(g) mt_init 
(g) mt_slots(] 

(g) topslots 

called by: 

debugO/debug.c 



calls: 

stripblkQ/debugutl.c 

amdefsO/amcuti.c 



errors: 



V 

displbrk(opt) 

OPTION ♦♦opt; 

{ char ♦♦strptr; 

char inpstr[MXINPSTRl; 
short i; 

opt->oprtn = DISPLBRK; 
do { 

fprintf(stdout,"Enter '!' to continueNnNtNtorXn"); 
fprintf(stdout,'"@' to abort the operation: \n"); 
f sc3nf(stdin.”^ls",inpstr); 

strptr = stripbik(inpstr); 

if (strptrlO] == '@') { 

opt->abortop = TRUE; 
return; 



if (strptrlO] == '!') 
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break; 



^ fprintf(stdout, "incorrect responseAn"); 

while (TRUE); 
if (!mt_init) { 

for (j = 0;i < MAXBRKS; i++) { 
mt_siots(i] = i; 
brktable[i].memaddr = 0; 
brktableiilopcdval = UNDEFND; 



topslot = riAXBRKS - ]; 
mLinit = TRUE; 






fprintflsidout/’BRKNUn nEMADDR OPCODENn"); 

for(i = 0; i < flAXBRKS; i++) { 

if (brktableiilopcdval == UNDEFND) 
fprintf(stdout,"^6d\n",i); 

else { 



fprintf(stdout,"^6d ", i); 
fprintf(stdout,"^08lx ", brktable(ilmemaddr); 
fprintf(stdout,"^s\n", amdef s(brktablelilopcdval)); 



/♦♦DISPL_PC() 

functioa- 

-This function performs the ’display program counter’ 
operation. 

interface: 




BREAKPOINTS 




(q) _segnum 
(g) _ofTset 

y- 

debugO/debug.c 



(p) opt 
(x) _pc/am.h 
(g) -seqnum 



called by: 



calls: 



stripbIkO/debugutl.c 
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errors: 






displ_pc(opt) 

OPTION ’♦opt; 

{ char ’♦strptr; 

char inpstr[hXINPSTR]; 

opt->oprtn = DISPL-PC; 

do{ 

fprjntf(stdout,”Enter one of followinq:\n"); 
fprjntf(stdout/’\t\t'!' to confirm display pc \n"); 
fprintfCstdout/NtXt'^' to abort the operation \n”); 
fscanf(stdin,"^ls",inpstr); 

strptr = stripblk(inpstr); 

if (strptrtO] == '@') { 

opt->abortop = TRUE; 
return; 

} 

if (strptrfOl == T) { 

^eqnum = (_pc.val & X^SEGflSK) » X_SEGSFT; 
-Offset = -pc.val & X_ADRf1SK; 
fprintf(stdout,"\n\t\tPRGM COUNTER in segment ^Id ", 

-segnum); 

fprintf(stdout,"at offset ^ld.\n"_offset); 
return; 

} 

j fprintf(stdout, "Incorrect responseAn"); 
while (TRUE); 



/’♦GOEXECQ 

function: 

-This function initiates the rest of the prompts for the 
'go execution' operation. 

interf ace: 

(p) opt 

(X) left2do/am.h 
(x) debgcntl/am.h 

called by: 

debugO/debug.c 
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calls; 



str2decQ/debugutI.c 

stripblkQ/debuguti.c 



errors: 






goexec(opt) 

OPTION »*opt; 

{ char inpstrlnXDECSTR]; 
char ^str: 

BOOLNvalidnum; 
long number; 

opt->oprtn = GOEXEC: 

do { 

fprintf(stdout,"Enter one of choices beiowAn"); 
fprintf(stdout,'’\t\tDecimal ranae btwn 1 and ^d\n",riAXEXECS); 
fprintf(stdout,'At\t’!’ - uncontrolled ao\n”); 
rprintf(stdout/’\t\t'@' - to abort the bperation\n\n"): 
f scanf(stdin,"%lls",inpstr); 

str = stnpbik(inpstr); 

if (strfO] == '@0 ( 

opt->abortop = TRUE; 
return; 

} 

if (str[0] == '!’) 
return; 

str2dec(str,&val idnum.&number); 
if (Ivalidnum) { 

fprintf(stdout, "Invalid number enteredAn"); 
continue; 

) 

if ((number < I) I I (number > MAXEXECS)) { 

fprintfCsidout, "Number out of rangeAn"); 
continue; 

) 

left2do = number; 
debgcnti = I; 
return; 

} 
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whil2(TRUE); 



} 

/^HELPO 

function: 

-This function displays the debugger commands available. 

interf ace: 

. (p) opt 

called by: 

debugO/debug.c 



calls: 

errors: 






heip(oDt) 

OPTION «opt; 

{ char strlfIXINPSTRj; 



opt->oprtn = HELP; 

fprintf(stdout,"\t\t Debuaaer Commands \n"): 
fprintfistdout 

fprintf(stdout’/"d'(isplau)\t'm'(emory), | seg:offset), span\n"); 
fprintfistdout," \t'r '(agister), seg:offset, span\n"); 

fprintfisldout," \t's'(tack - top only), seg\n"); 

fprintustdout," Xt'byeaks - all)\n">, 

fprintftstdout," \t'^'(prpgram counter )\n"); 

fprintustdout, ’"g'(o) \t{'!' [ n <instrs>)\n"); 

fprintf(stdout,"'?'(list available debug commands)\n"); 
fprintf(stdout,'"s'(et) \t’m'(emory), seg:offset, val_type, val\n"); 
fprintustdout," \t'r Register), seg:offset, vai_tupe, val\n"); 

fprintustdout," \t's’(tacktop, seg, vaLtype, val\n"); 

fprintustdout," Xt'byeak), seg:offset\n^); 

fprintustdout," \t'** '(program counter), seg:offset\n"); 

fprintf(stdout,"'t'(race) \t'l'(o^ < TRACEXn"); 

fprintustdout." \t’z'(off) STARTEDXn"); 

fprintffstdout," \t for n fnstrs BY 'GO'>\n"); 

fprintf(stdout,"'q'(uit debug and halt execution)\n"); 
fprintf(sidout,"Leaend: i -"or, [] - optional. <> - comment 
fprintftstdout," [J-nusi choosean itemAnXn"); 
fprintfistdout, "Enter non-blank char to continueAn"); 
f scanf(stdin,"^ls",str); 
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/^REnOVBRKO 

function: 

-This function removes a breakpoint at a specified 
memory location. 

interface: 

i p) opt 

x) debgtask/am.h 
g) mt-init 
g) brktablel] 
g) topslot 
(g) mt-slotsH 
fig Q/am.h 

called by: 

debugO/debug.c 



calls: 

stripbIkQ/debugutl.c 

str2decQ/debugutl.c 

fetchmO/amstate.c 

storemO/amstate.c 

cnv2aadr()/debugutl.c 



errors: 






removbrk(opt) 

OPTION '♦opt; 

{ char '♦strptr; 

char inpstr[NXDECSTRl; 
int I; 

long number; 
BOOLNvalidnum; 

VAL '♦v; 

MADm; 

BREAKS '♦brkptr; 



ODt->oprtn = REMOVBRK: 
do { 

fprintf(stdout, "Enter decimal break number "); 
fprintHstdout, "between 0 and ^d\n\t\tor\n",HAXBRKS-l); 
fprintfistdout,"’@’ to abort the operation: \n"); 
f scanf(stdin,"^4s",inpstr); 

strptr = stripblk(inpstr); 
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if (strptrlOj == { 

opt->abortop = TRUE: 
return; 

} 

str2dec(strptr,&validnum,&number); 
if (Ivalidnum) { 

fprintf(stdout,"Invaiid number enteredAn"); 
continue: 

} 

if ((number < 0) | (number > (MAXBRKS - 1))) ( 
fprintf(stdout,”Number out of rangeAn"); 
continue: 

} 

opt->rngebegn = number: 
break: 

} 

while (TRUE): 
if (!mt_init) { 

ford = 0:1 <riAXBRKS; i+-^) { 
mt_slots[i] = i: 
brktab!e[i].memaddr = 0: 
brktabieiii.opcdval = UNDEFND: 

topslot = MAXBRKS - I: 

^ mtlinit = TRUE; 

if (topslot > MAXBRKS - 2) { 

fprintf(stdout, "Break Table emptyXn”): 
return; 

} 

if (brktable[opt->rngebegn].opcdval == UNDEFND) ( 
fprintf(stdout, "Breakpoint not in TableAn"); 
return; 

} 

debgtask = 1: 

brkptr = &brkt3bie[opt->rnqebean]; 
m.val = brkptr->memaddr; 

V = fetchm(&m,Q); 

v->instrval.val[0].opcdval = brkptr->opcdval; 

storem(v,&m,Q); 

brkptr->memaddr = 0; 

brkptr->opcdval = UNDEFND; 

mt_slots[++topslotl = opt->rngebegn; 
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debgtask = 0; 

/’♦TRACEOPO 

function: 

-This function initiat2s th2 r2st of th2 prompts for th2 
th2 'trac2op' op2ration. 

int2rf ac2: 

(p) opt 

(x) d2bqcntl/am.h 
(x) l2ft2do/am.h 
(x) dbgtrac2/am.h 

call 2d by: 

d2bug()/debug.c 



calls: 

3tripblkQ/d2bugopr.c 
Str2d2c0/ d2bugopr.c 



errors: 



V 

traceop(opt) 

OPTION ^opt: 

{ char *^strptr; 

char inpstr[MXDEC5TR]; 
int i; 

long number; 

BOOLNvalidnum; 

opt->oprtn = TRACEOP; 

do { 

fprintffstdout, "Enter one of following:\n"); 
fprintf(stdout,"\t\tDecimal number between 1 and "); 
fprintf(stdout,"^d\n",MAXLlNE5); 
fprintf(stdout,"\t\tT for 'trace on'\n"); 
fprintf(stdout,"\t\t'z' for 'trace off'\n"); 
fprintffstdout,”\t\t'@' to abort the operatiortXn"): 
rsc3nf(stdin,'X'^IOs".inpstr); 

strptr = 3tnpblk(inpsrr); 

if (strptrlO) == '@') ( 

opt->abortop = TRUE; 
return; 



if (strptr(O) == '!') { 
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} 



opt->rna8SDan = TRACEON; 
dbgtrac8 = i; 
deogcntl = 0; 
return; 



if (strptr(O) == 'z') ( 

opt->rngespan = TRACEOFF; 
dbqtrace = 0; 
debgcnti = 0; 
return; 

) 

str2d8c(strptr,&validnum,&number): 
if (Ivalidnum) { 

fprintf(stdout, "Invalid number enteredAn"): 
continue; 

} 

if ((number < I) | (number > MAXLINES)) { 

fprintf(stdout, "Number out of rangeAn"); 
continue; 

} 



left2do = number; 
dbgtrace = 1; 
debgcnti = 1; 
return; 

while (TRUE); 

} 

/♦*QUITDEBG() 

function: 

-Uponuser confirmation, this function exits the debug- 
ger and halts program execution. 

interface: 

(p) opt 

called by: 

debugO/debug.c 



calls: 

stripblk()/debugopr.c 

exitO 



errors: 
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quitdebq(opt) 

OPTION '♦opt; 

{ char '♦strptr; 

char inpstr(MXlNPSTR]; 

opt->oprtn = QUITDEBG; 

do { 

fprintfCstdout, "Enter one of followinqAn"); 
fprintf(stdout/’\t\t'!’ to END DEBUG AND EXECUTION\n"); 
fprintf(stdout."\t\t'@' to abort operatiomXn"); 
fscanf(stdin,"^ls",inpstr); 

strptr = stripblk(inpstr); 

if (strptr(0] == ’@') { 

opt->abortop = TRUE; 
return; 

1 

J 

if (strptriOj == '!') { 

fprintf(stdout, "Exiting Debugger, Halting ExecutionAn"); 



fprintf(stdout,"lncorrect responseAn"); 



while (TRUE); 



/♦♦GET_BOOL() 

function: 

-This function initializes the boolval structure, promp- 
ting the user to enter the actual value part of the 
structure. 

interface: 

(p)v 

(p) abortop 

called by: 

getvalueO 



calls: 

stripbIkO/debugutl.c 



errors: 



V 
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qet_t)ool(v,abortop) 

VAL^v; 

BOOLN^abortop; 

{ char ^strptr; 

char inpslrlMXlNPSTRl; 

v->boolval.type = V^SOOL; 

‘ do{ 

fprjntf(stdout, "Enter letter of your choiceAn"); 
fprintf(stdout,"\t\tt(rue)\n\t\tuaise)\n"); 
fprjntf(stdouV'\t\t@(abort operationVn"); 
fscanf(stdjn,"^ls",inpstr); 

strptr = strjpblk(inpstr); 

switch(strptr(Ol) { 

case ’t': v->boolval.val = ’t'; 

return: 

case T: v->boolvai.vai = 'f 

return; 

case "^abortop = TRUE; 

return; 

default: fprjntf(stdout,"Bad responseAn"); 



while (TRUE); 



} 

/**GET_NAT() 

function: 

-This function initializes the natval structure, promp- 
ting the user to enter the actual value part of the 
structure. 

interface; 

(p)v 

(p) abortop 

called by: 

getvaiueO 



calls: 

stripbIkQ/debugutl.c 
str 2dec()/debugut I .c 



errors: 
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get_nat(v,abortop) 

VAL^v; 

BOOLN^abortop; 

{ long number; 

BOOLNvalidnum; 

char *^strptr; 

char inpstr[MXDECSTRl; 

V“>natval.type =V_NAT; 

do{ 

fprintfistdout/Enter decimal number bctweenXn"); 
fprintf(stdout,"\t\tO and 65535\nor\n"); 
fprintf(stdout,''\t\t’@’ to abort the operatiomXn"); 
fscanf(stdin,’’^IOs”,inpstr); 

strptr = stripblk(inpstr); 

if (strptr[0| == '@') { 

^abortop = TRUE; 
return; 

} 

str2dec(strptr,&validnum,&number); 
if (Ivalidnum) { 

fprintf(stdout, "Invalid number enteredAn"); 
continue; 

) 

if ((number 0) | I (number > 65535)) { 

fprintf(stdout, "Number out of rangeAn"); 
continue; 

} 

v->natval.val = number; 

^ return; 

while (TRUE); 

} 

/^GET_1NT() 

function: 

-This function initializes the intval structure, promp- 
ting the user to enter the actual value part of the 
structure. 

interface: 

(p) V 

(p) abortop 
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called Dy: 

getvalueO 



calls: 



errors: 



stripbIkQ/debugutl.c 

str2dec0/debugutl.c 






get_int(v,abortop) 

VAL ^v; 

BOOLN *^abortop; 

{ long number; 

BOOLNvalidnum; 

char ^strptr; 

char inpstr[hXDECSTR]; 

v->intval.type =VJNT; 

do { 

fprintfCstdout, "Enter decimal number between\n\n"); 
fprintf(stdout,"\t\t -2147483647 & 2147483647 (no '.')An"); 
fprintf(stdout,"or\n\t\t'@' to abort the operation:\n"); 
fscanf(stdin,’’^lls",inpstr); 

strptr = stripblk(inpstr); 

if (strptrlO] == ’@’) { 

♦♦abortop = TRUE; 
return; 



str2dec(strptr,&validnum,&number); 
if (Ivalidnum) { 

fprintf(stdout, "Invalid number enteredAn"); 
continue; 



v->intval.val = number; 
return; 

} 

while (TRUE); 



) 

/♦«GET_CHAR() 

function: 

-This function initializes the charval structure, promp- 
ting the user to enter the actual value part of the 
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structure. 



interf ace: 

(p)v 

(p) abortop 

called by: 

getvalueO 

calls: 

getcharO/ ’♦system^ 

errors: 






get_char(v, abortop) 

VAL »*v; 

BOOLN ^abortop: 

{ char ch; 

v->charval.type = V_CHAR; 

fprintfCstdout/’Enter character \n\t\tor\n"); 
fprintf(stdout,'"@' to abort the operation:\n"); 

ch = getcharO; MUST be done to CLEAR LAST NEWLINE CHARACTER 

user typed. 

ch = getcharO; 

if (ch == '@0 { 

**abortop =TRUE; 
return; 



v->charval.val = ch; 
return; 



} 

/»<GET_CSTR0 

function: 

-This function initializes the cstrval structure, promp- 
ting the user to enter the actual value part of the 
structure. 

interface: 

(p) V 

(p) abortop 
called by: 
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getvalueO 



calls: 

pmallocQ/amstat2.c 
QGtcharO/ ^system^ 
g2ts()/ ^system^ 
strcpyO/ *syst2m^ 



errors: 






g2t_cstr(v,abortop) 

VAL'^V; 

BOOLN^abortop; 

( char str[81]; 
char ^ptr; 
char ^g2ts(); 
char cn; 



v->cstrval.typ2 = V_CSTR; 



fprjntf(stdout,"Ent2r charstrinq (max 80 chars)\n'’); 
fprintf(stdout,"\t\tor\n'@' to aoort th2 op2ration:\n"); 

ch = 92tchar(); MUST b2 done to CLEAR LAST NEWLINE 

character user typed. 



ptr = gets(str); 

if (ptr != NULL) { 

if (strtOl == '@0 { 

’♦abortop = TRUE; 
return; 

) 



v->cstrval.val = pmalloc(strlen(str) +1); 

strcpy(v->cstrval.val, str); 

return; 



fprintf(stdout, "Error in reading string.Xn"); 

while (TRUE); 



/♦«GET_MAD() 

function: 

-This function initializes the madval structure, promp- 
ting the user to enter the actual value part of the 
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structure. 



interface: 

(p) V 

(p) abortop 

called by: 

getvalucO 



calls: 



cnv2addrQ/debuqutl.c 

stripblk()/debugui!.c 

aet_oflt6 



errors: 






gct_maa(v,abortop) 

VAL 

BOOLN ^abortop; 

( char ^strptr; 

char inpstr(nxlNPSTR]; 
long _seqnum: 
long ^offset; 

v->madval.type = V_MAD; 

do { 

fprintffstdout, "Enter one of followinq:\n"); 
fprintf(stdout,"\t\t'v' - memaddr value promptXn"); 
fprintf(stdout,”\t\t’@’ - to abort the operatioa* \n"); 
fscanf(stdin,"^ls",inpstr); 

strptr = stripblk(inpstr); 

if (strptr[0l == { 

♦^abortop = TRUE; 
return; 

} 

if Cstrptr[01 == 'v') { 

-segnum = get_segm(abortop^umusrseg - 1); 

if (^abortop) 

return; 

-Offset = get_ofst(abortop, 

_mem[_segnuml.size - 1); 
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if (^abortop) 

P 2 turn; 

v->madvai.vai = cnv2addr(_s8gnum, _offs8t); 
return; 

} 

f printf(stdout, Incorrect responseAn"); 



while (TRUE); 



/’^6£T_RAD() 

function: 

-This function initializes the radval structure, promp- 
ting the user to enter the actual value part of the 
structure. 

interface: 

(p)v 

(p) abortop 

called by: 

getvalueO 



calls: 



cnv2addr()/debuqutl.c 

stripblk()/debuquil.c 

get_segm() 

get_ofstO 



errors: 






get_rad(v, abortop) 

VAL »*v; 

BOOLN ^abortop; 

{ char ^strptr: 

char inpstr(f1XlNPSTR]; 
long _segnum; 
long _ofiset; 

v->radval.type = V_RAD; 

do { 

fprintffstdout, "Enter one of following:\n"); 
fprintf(stdout,"\t\tV - regaddr value promptNn"); 
fprintf(stdout,"\t\t’@' - to abort the operatioa* \n"); 
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f scanfCstdin/^ls^jnpstr); 

strptr = stripb)k(inpstr); 

if (strptrlOl == ’@0 { 

^abortop = TRUE; 
return; 



if (strpMOl == 'v') { 

_segnum = get_segm(abortop^umregseg - 1); 

if (^abortop) 

return; 

-.offset = geL.ofst(abortop^eg[_segnuml.num - 1); 

if (^abortop) 

return; 

v->radval.val = cnv2addr(_segnum, -.offset); 
return; 

} 

f printf(stdout, "Incorrect responseAn"); 



while (TRUE); 



/♦«GET_SAD() 

function: 

-This function initializes the sadval structure, promp- 
ting the user to enter the actual value part of the 
structure. 

interface: 

(p)v 

(p) abortop 

called by: 

getvalueO 



calls: 

cnv2addr(ydebuQutI.c 

stripblk()/debuQu1l.c 

get_segm() 

get_ofst() 



errors: 



1 08 



V 



q 2 L.sacl(v,abortop) 

VAL'^v; 

BOOLN^abortop; 

{ char ^strptr; 

char inpstrinxINPSTR]; 
long _seqnum; 
long -Offset; 

\/->sadval.type = V_SAD; 

do{ 

fprintf(stdout, "Enter one of following:\n"); 
fprintf(stdout,"\t\t'v’ - stkaddr value promptXn"); 
fprintf(stdout,"\t\t'@' - to abort the operation: \n"); 
fscanf(stdin,"^ls",inpstr); 

strptr = stripblk(inpstr); 

if (strDtrtO] == '@') { 

""abortop = TRUE; 
return; 

} 

if (strptr[0l == V) { 

-segnum = get-segm(abortop, _numstkseg - 1); 

if (**abortop) 

return; 

-Offset = get-ofst(abortop^stk[-segnum].size - 1); 

if (^abortop) 

return; 

v->sadval.val = cnv2addr(-segnum, -Offset); 
return; 

} 

f printf(stdout,"lncorrect responseAn"); 

} 

while (TRUE); 



/»*GET-F1LE() 

function: 

-This function initializes the fileval structure, promp- 
ting the user to enter the actual value part of the 
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structure. 



interface: 

(p) V 

(p) abortop 

called by: 

geivalueO 



calls: 

stripblkQ/debugutl.c 

str2dec0/debugutl.c 



errors: 






aet_fiie(v,abortoo) 

9al ^v; 

300LN ^abortop; 

{ long number: 

BOOLNvalidnum; 

char ^strptr; 

char inpstr(riXDECSTRl; 

v->fileval.type = V_F1LE; 

do ( 

fprintf(stdout,”Enter decimal number "); 
fprintf(stdout,’’between 0 and ^d\n\t\tor\n"^umf lies - 1); 
fprintustdout,"’@’ to abort the operatioaAn"); 
fscanf(stdin,"^11s",lnpstr); 

strptr = stripblk(inpstr); 

if (strptrlO] == '@') { 

♦^abortop = TRUE; 
return; 

} 

str2dec(strptr,&va!idnum,&number); 
if (Ivalidnum) { 

fprintf(stdout, Invalid number entered.Nn"); 
continue; 

} 

if ((number < 0) | I (number >_numfiles - 1)) ( 

fprintf(sidout, "Number out of range.Xn"); 
continue; 



v->ni2val.val = numb2r; 
pQturn; 



whii2 (TRUE); 



} 

/^GETJNSTQ 

function: 

-This function initial iz2s th2 instrval structur2, promp- 
ting th2 us2f to 2nt2r th2 actual valu 2 part of th2 
structure. It r2S2ts qlcbai file var ’inst_get' to FALSE 
just before function^termination. 

Interface: 

(p) V 

(p) abortop 
(g) inst_get 

called by: 

getvalueO 



calls: 

. getopndO/aminstr.c 
getopcodeO/aminstr.c 

getvalueO Note that this is a recursive call V 

pmallocQ/amstate.c 

str2hexQ/debugutl.c 

stripblkQ/debugutl.c 



errors: 






get_lnst(v, abortop) 

VAL ♦'v; 

BOOLN ♦'abortop: 

{ long number: 

BOOLNvalidnum: 
char ♦'strptr; 
char inpstr(hXHEXSTR]; 
ini i; 
int i: 

VAL ♦'p: 

v->instrval.tupe = VJNSTR; 
inst_get = TRUE; 

do { 

fprintf(stdout, "Enter HEX opcode\n\t\tor\n"): 



fprintf(staout,'”@' to abort the operationAn'*); 

f scanf(stdin,"^4s",inpstr); 

strptr = stripblk(inpstr); 

if (strptrlOl == ’@0 { 

"^abortop = TRUE; 
inst_get = FALSE; 
return; 

} 

str2hex(strptr,&vaiidnum,&number): 

if (Ivaiidnum) { 

fprintf(stdout, "Invalid number enteredAn"); 
continue; 

} 

if ((number < 0) | I (number > 0x6 fff)) { 

fprintf(sidout,''Invaiid opcodeAn"); 
continue; 

i 

if (getopcode(number) == lUDBG) { 

fprintf(stdout, "Breakpoint opcode enteredAn"); 
fprintf(stdout, "Opcode can't be enteredAnXn'); 
continue; 



j = getopnd(number); 

v->instrval.val = (VAL^) pmalloc(sizeof(VAL)*‘ j); 
v->instrval.vai[0].opcdval = number; 
p = v->instrval.val; 

for(i = 1; i < j; i++) { 

fprintf(stdout,”\t\t ****** Entering Operand ^^d",i); 
fprintf(stdout," *^***^\n"); 
getvalue(&p[il, abortop); 

if (^abortop) { 

insLget = FALSE; 
return; 



inst_get = FALSE; 
return; 



/^GETJIOPO 

function: 

-This function initializes the mopval structure, promp- 
ting the user to enter the actual value part of the 
structure. 

interface: 

(p) V 

(p) abortop 

called by: 

getvalueO 



calls: 

str2hexQ/debuguti.c 

stripblkQ/debugutl.c 



errors: 



V 



get_jmcD(v, abortop) 
VAL ^v: 

300LN ^abortop; 



{ 



long number; 
BOOLNvalidnum; 
char **strptr; 
char inpstrlMXHEXSTRl; 



v->mopval.type = V_J10P; 
do{ 

fprintf(stdout, "Enter HEX number "); 
fprintustdout, "bet ween 0 and ffff\n\t\tor\n"); 
fprintf(stdout,”'@’ to abort the operation:\n"); 
fscanf(stdin,"^4s",inpstr); 

strptr = stripblk(inpstr); 

if (strptrlOl == '@') { 

^abortop = TRUE: 
return; 

} 

str2hex(strptr,&validnum,&number); 
if (Ivalidnum) { 

fprintf(stdout, "Invalid number entered.Xn"); 
continue; 
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if ((number < 0) | (number > 65535)) { 

fprintf(stdout;'Number out of rangeAn"); 
continue; 

} 

v->mopval.val = number; 
return; 

while (TRUE); 



} 

/^GET_DOP() 

function: 

-This function initializes the dopval structure, promp- 
ting the user to enter the actual value part of the 
structure. 

interface: 

(p) V 

(p) abortop 

called by: 

getvalueO 



calls: 

str2hexQ/debugutl.c 

stripblkQ/debugutl.c 



errors: 






get_dop(v, abortop) 

VAL^'v; 

BOOLN**abortop; 

{ long number; 

BOOLNvalidnum; 

char **strptr; 

char inDStrtnXHEXSTRl; 

v->dopvai.type = VJDOP; 

do { 

fprintf(stdout, "Enter HEX number ”); 
fprintfistdout, "between 0 and ffff\n\t\tor\n"); 
fprintf(stdout,"’@’ to abort the operation:\n"); 
fscanf(stdin,"^4s",inpstr); 

strptr = stripblk(inpstr); 



if (strptr[0] “ '@0 { 

^abortop = TRUE; 
return; 

} 

str2hex(strptr,8ivalidnum,&number); 
if (Ivaiidnum) { 

fprintf(stdout, "invalid number enteredAn"); 
continue; 



if ((number < 0) | I (number > 65535)) { 

fprintf(sidout, "Number out of rangeAn"); 
continue; 



v->dopvai.vai = number; 
return: 

} 

while (TRUE); 



} 

/»«GET_ROP() 

function: 

-This function initializes the ropval structure, promp- 
ting the user to enter the actual value part of the 
structure. 

interface: 

(p) V 

(p) abortop 

called by: 

getvalueO 

calls: 

str 2hexQ/debugut 1 .c 
stripbIkO/debugutl.c 



errors: 



y 



get_rop(v, abortop) 
VAL ^v; 

BOOLN’^abortop; 



long number; 
BOOLNvalidnum; 



char "*strptr; 

char inpstr(hXHEXSTRl; 

V“>ropval.type = V_RDP; 

do{ 

fprintf(stdout,"Enter HEX numoer ”); 
fprintf(stdout,"b2twe2n 0 and ffff\n\t\tor\n"); 
fprintfistdout,"'^' to abort th2 op2ration:\n”); 
f scanf(stdin,"^4s",inpstr); 

strptr = stripbik(inpstr); 

if (strptrtOl == '@') { 

^abortop = TRUE; 
r2turn; 



str2h2x(strptr,&validnum,&numb2r); 
if (Ivalidnum) { 

fprintf(stdout,’'!nvaiid numb2r 2nt2red.\n"); 
continu2; 

} 

if ((numb2r < 0) | I (numb2r > 65535)) [ 

fprintf(stdout,"Numb2r out of rang2.\n"); 
continu2; 

} 

v->ropval.val = numb2r; 
r2turn; 

whil2 (TRUE); 



} 

/»«GET_BOP() 
f unction: 

-This function initial iz2s th2 bopval structur2, promp- 
ting the user to enter the actual value part of the 
structure. 

interf ace: 

(P) V 

(p) abortop 

called by: 

getvalueO 



calls: 



str2hex()/debugutl.c 



stripbIkO/debugutl.c 



errors: 



getJDop(v,abortop) 

VAL ’^v; 

BOOLN ^abortop; 

{ long number; 

BOOLN validnum; 

char ^strptr; 

char inpstrthXHEXSTRl; 

v->bopval.type = V_BOP; 

do { 

fprintfCstdout, ’’Enter HEX number ”); 

!' pr iniustdout/'between 0 and f f f f\n\t\tor\n”); 
fprintf(stdout,"’@' to abort the operation:\n"); 
fscanf(stdin,"^4s",inpstr); 

strptr = stripbik(inpstr); 

if (strptrtO] == '@') { 

'‘abortop = TRUE; 
return; 



str2hex(strptr,&validnum,&number); 
if (Ivalidnum) { 

fprintf(stdout, "Invalid number enteredAn"); 
continue; 



if ((number < 0) | (number > 65535)) { 

fprintf(sidout, "Number out of rangeAn"); 
continue: 

} 

v->bopval.val = number; 
return; 

1 

while (TRUE): 



) 

/»«GETVALUE() 

function; 

-This function prompts the user for value of type VAL 



which can be placed into memory, a register or the 
stack. 



interf ace: 

(p) V 

(p) abortop 
(g) inst_get 



called by: 

setmemrO 

setregrO 

setstkO 

get_inst() Note -- indirect recursive caii!! 



calls: 

str2decQ/debugutl.c 

stripblkO/debugutl.c 

aet_bool() 

getjiaiQ 

get_!nt() 

get_charO 

geL.csirQ 

aet_madQ 

get_mad() 

get_radQ 

get_sadQ 

geL.fi leQ 

get_instQ 

get_mopQ 

get_dopp 

get_ropQ 

get_bopO 



errors: 



V 



getvalue(v, abortop) 

VAL 

BOOLN ^abortop: 

{ char *^strotr: 

char inostrlnXDECSTRl; ilXDECSTR = 12 V 
ini number: 

BCCLNvalidnum; 

do { 



fprintf(stdout,"\t\t *^*^*^*^ Entering Value to be Stored 

fprintffstdout, "Enter number "); 
fprintf(stdout, "besides type desired:\n\n"); 



fprintf(stdOUt,"\t 1 - 800L\t 2 - NAT \t 3 - INT "); 
fprintustdout,”\t 4 - CHAR\n\t 5 - CSTR \t 6 - MAD ”); 
fprintf(stdout,"\t 7 - RAD \t S - SAD\n\t 9 - FILE ”): 

if (!inst_get) { 

fprintf(sldout,”\tlO - INSTRNtll - MOP \tl2 - DOP\n"): 
fprintf(stdout,"\tl3 - ROP \tl4 - BOP \t @> - abort op\n">, 

SiSB { 

fprintf(stdout,"\tll - MOP \tl2 - DOP \tI3 - ROP\n"); 
fprintf(stdout,”\tl4 - BOP \t @ - abort opNn"); 

} 

fscanf(stdjn,"^11s",inpstr); 

strptr = stripblk(inpstr); 

if (strptrlOj == '@') { 

"^abortop = TRUE; 
return; 

} 

str2dec(strptr,&va!idnum,&number); 
if (Ivalidnum) { 

rprintf(stdcut,”invaiid number enteredAn"); 
continue; 

) 

switch(number) { 

case 1: get_JDOoi(v,abortop); 

return; 

case 2: get_nat(v,abortop); 

return; 

case 3: get_int(v,abortop); 

return; 

case 4; get_char(v,abortop); 

return; 

case 5: get_cstr(v,abortop); 

return; 

case 6: get_mad(v,abortop); 

return; 

case 7: get_rad(v,abortop); 

return; 

case 8: get_3ad(v,aboriop); 

return; 

case 9: get_file(v,abortop); 

return; 

case 10: if (!inst_get) { 

get_inst(v,abortop); 

return; 
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f print! (sidout/'lncorrect numoerAn"); 
br2ak; 

cas 2 II; get_jTiop(v,abortop); 

return; 

case 12: get_dop(v,abortop); 

return: 

case !3; get_rop(v,abortop); 

return; 

case 14: getJDop(v,abortop); 

return; 

default: iprintf(stdout, Incorrect number An"); 



while (TRUE); 



) 

/^^SEThEMRO 

function: 

“This function performs the 'set memory' operation. 

interface: 

(p) opt 
(g) _seqnum 
(g) “Offset 
(x) debgtask/am.h 

called by: 

debugO/debug.c 

calls: 

stripblkO/debugutl.c 

qetvalueO 

fetchmO/amstate.c 

storemO/amstate.c 

pmallocQ/amstate.c 

fmallocO/amstate.c 

cnv2addr()/debugut I .c 

getopcodeO/aminstr.c 

errors: 






setmcmr(opt) 

OPTION »*opt; 

( char “strptr; 

char inpstrlNXINPSTRl; 
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BOOLNop_at)ort = FALSE; 

VAL ^v: 

MAD m; 
short brknum; 

opt->oprtn = SETMEflR; 

do { 

fprintf(stdout,"Enter one of foilowinqAn"); 
fprintf(stdout,"\t\t'v' - memaddr value promptXn"); 
fprintf(stdout,’’\t\t'@’ - to abort the operation: \n”); 
f scanf(stdin,'’^lsMnpstr); 

strptr = stripblk(inpstr); 

if (strptrtOl == '@0 { 

opt->abortop = TRUE; 
return; 

} 

if (strptriOl == 'v') { 

-segnum = geLsegm(&opt->abortop, 

_numusrseg - 1); 



if (opt->abortop) 
return; 

-Offset = get_ofst(&opt->abortop, 

-memLsegnuml.size - 1); 

if (opt->abortop) 
return; 

opt->val = (VAL^) pmalloc(sizeof(VAL)); 
getvalue(opt->val,&op_abort); 

break; 

} 

f printf(stdout, "Incorrect responseAn"); 



} 

while (TRUE); 

if (opt->3bortop = op_aDort) Assignment intended!! 

return; 

debgtask = 1; 

m.val = cnv2addr(_segnum, -Offset); 

V = fetchm(&m,Q); 
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if (v->type == VJN5TR) { 

if (qetcpcod2(v->instrvai.vai(01.opcdval) == ILDBG) { 
do { 

fprintf(stdout,"Br2akpoint at m2maddr.\n''); 
fprintfCstdout/Enter T to confirm setXn"); 
fprintftstdout/XtXtorXn’^' to abort opAn"); 
fscanf (stdin,"^ls",!npstr); 

strptr = stripblk(inpstr); 

if (strptr(0] == '@') { 

opt->3bortop = TRUE; 
dgbgtask = 0; 
return; 

) 

if (strptr(0l == '!') { 

brknum=g2toond(v->instrval.vai(01.opcdval); 
stor2m(opt->vai,&m,Q); 
fmailoc(opt->vai); 
brktablelbrknuml.mcmaddr = 0; 
brktabieibrknumj.opcdval = UNDEFND; 
mt_slots(++topslot] = brknum; 
debgtask = 0; 
return; 

} 

fprintf(stdout, "Incorrect responseAn"); 



while (TRUE); 



storem(opt->val,&m,Q); 
fmalloc(opt->val); 
debgtask = 0; 



/*«SETRE6R() 

function: 

-This function performs the ’set register' operation. 

interface: 

(p) opt 
(g) -segnum 
(g) -offset 

called by: 

debugO/debug.c 
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calls: 



stripblkQ/debugutl.c 

getvalueO 

omal locQ/amstate.c 
fmallocO/amstate.c 
cnv2addr()/d2bugutl.c 



errors: 






setrear(oot) 

OPTION ^opt; 

( char "^strptr; 

char inpstr[f1XlNPSTRl; 
BOOLNop^abort = FALSE; 
RADr: 



opt->oprtn = SETREGR; 
do{ 

rprintf(stdout,''Enter one of foliowing:\n"); 
fprintf(stdout/’\t\t'v' - regaddr value promptVn"); 
fprintf(stdout,’’\t\t'@' - to abort the operation: xn"); 
fscanf(stdin,'’^ls'’,inpstr); 

strptr = stripblk(inpstr); 

if (strptrlO) == '@0 { 

opt->abortop = TRUE; 
return; 

} 

if (strptrlO) == 'v') { 

_segnum = get_segm(&opt->abortop, 

_numregseg - 1); 



if (opt->abortop) 
return; 

-Offset = get_ofst(3<opt->abortop, 

_reo[_seanum].num - 



if (opt->abortop) 
return; 

opt->val = (VAL**) pmalloc(sizeof(VAL)); 
getvalue(opt->val,&op_abort); 

break; 
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} 

f printf(stdout, "Incorrect responseAn"); 



while (TRUE); 

if (opt->abortop = op_abcrt) Assianment intended!! 
‘ return; 

r.val = cnv2addr(_seQnum, ^offset); 

storer(opt->vai,Str,Qj; 

fmalloc(opt">val); 



} 

/»^SETSTK() 

function: 

-This function performs the ‘set stack' operation. 

interface: 

(p) opt 
(g) -segnum 

called by: 

debugO/debug.c 



calls: 

stripblk()/debugutl.c 

getvaluep 

pmal locO/amstate.c 
fmallocO/amstate.c 
cnv2addr()/debugutl.c 



errors: 



V 

setstk(opt) 

OPTION ^opt; 

{ char ^strptr; 

char inpstr(MXINPSTR]; 

3GOLNop_abon - FALSE; 

SAD s; 

opt->oprtn = SETSTK; 
do { 

fprintffstdout, "Enter one of following.An"); 
fprintf(stdout,"\t\tV - regaddr value prompt\n"); 
fprintf(stdout,’’\t\t’@’ - to abort the operafioa* \n”); 
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f scanf(stdin,"^ls",inpstr); 

strptr = strippik(inpstr); 

if (strptrlOl == '@0 { 

opt->abortop = TRUE; 
return; 

■> 

/ 

if (strptrlO] == 'v') { 

-segnum = get_segm(&opt->abortop, 

_numstkseg - 1); ' 



if (opt->abortop) 
return; 

opt->val = (VAL**) pmalloc(sizeof(VAL)); 
getvalue(opt->vai,&oo_abort); 

break; 

) 

f printf(stdout, "Incorrect responseAn"); 



while (TRUE); 

if (opt->abortop = op^abort) Assignment intended!! 
return; 

^offset = _stk[_segnum].size -1; 
s.val = cnv2addr(_segnum, .offset); 
storestk(opt->val,&s;; 
fmalloc(opt->val); 



} 

/»<SETBRK() 

function: 

-This function sets a breakpoint at an memaddr with an 
Instruction. 

inierf ace: 

(p) opt 

(x) debgtask/am.h 

1 g) mt_init 
g) brktablell 
g) topslot 
g) mt_slots[l 
g) .segnum 
(g) .onset 
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called Dy: 

deougO/deoug.c 



calls: 

stripblkQ/debugutl.c 
getopcodeO/aminstr.c 
I etcbmQ/amstate.c 
storemO/amstate.c 
cnv2addr()/debugutl.c 



errors: 



setbrk(opt) 

OPTION »*opt; 

{ char ^strotr; 

cnar jnpstr[f1XiNPSTR|; 
short opcode: 

VAL 

MAO m; 
short i; 

SREAKSbrk: 

opt->oprtn = SETSRK; 

do { 

fprintf(stdout, "Enter one of followinq:\n"); 
fprintf(stdout,"\t\t'v' - memaddr value promptXn"); 
fprintf(stdout,"\t\t'<9>' - to abort the operation*. \n"); 
f scanf(stdin,"^ls",inpstr); 

strptr = stripblk(inpstr); 

if (strptrlOj == ’@') { 

opt->abortop = TRUE; 
return; 



if (strptrlO] == V) { 

_segnum = get_segm(&opt->abortop, 

-inumusrseg - !); 



if (opt->abortop) 
return; 

-Offset = get_ofst(&opt->abortop, 

_mem[_segnum].size - 1) 



if (opt->abortop) 
return; 
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brsaic; 



} 

f printf(stdout, ’’Incorrect responseAn"); 



while (iRUE); 
if (!mL.init) { 

for(i = 0;i <riAXBRKS; i++) { 
mt_slots(il = i; 

&rk:tabte(i].memadclr = 0; 
brktableiiloDcdval = UNDEFND: 

} 

topslot = MAXBRKS - 1; 
mt_init = TRUE; 

} 

if (topslot < 0) { 

fprinif(stdout,"Break Table Full An"); 
return; 

} 

debgiask = 1; 

m.val = cnv2addr(_segnum, -Offset); 
v= fetchm(&m,Q); 

if (v->tupe 1= VJNSTR) { 

iprintf(stdout, "Sorry, non-instr at memaddrAn"); 

debgtask = 0; 

return; 



if (getopcode(v->instrval.val[0].opcdval) == ILDBG) { 

fprintf(stdout, "Sorry, Breakpoint already at memaddrAn"); 

debgtask = 0; 

return; 

} 

brk.opcdval = v->instrval.vai[0].opcc!val; 
brk.memaddr = m.val; 

opcode= ((mt_slotsltopslot] « X-OPNDSF) | (II-DBG)); 
v->instrval.va)[0).opcdval = opcode; 
brktable[mt_slots[topslotl].memaddr = brk.memaddr; 
brktable[mt_s)ots[topslotll.opcdval = brk.opcdval; 
topslot—; 

storem(v,&m,Q); 
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debgtasic = 0: 



/»«SET_PC() 

function: 

-This function performs the 'set proaram counter' 
operation. 

interface: 

I p) opt 

x) _numusrseq/am.h 
X) _pc/am.h 
x) _mem(]/am.h 
q) -segnum 
g) -Offset 
debgtask/am.h 

called by: 

^ebugQ/debug.c 



calls: 

stripbIkQ/debugutl.c 

fetchmO/amsiate.c 

cnv2addrQ/debugutl.c 

get-segmO 

get-ofstO 



errors: 



V 



set_pc(opt) 

OPTION *«opt; 

{ char *<strptr; 

char inpstrlhXlNPSTRl; 

VAL*«v; 

MADm; 

opt->oprtn = SET_PC; 
do { 

rprintf(stdout."cnter one of rollowina.An"): 
fprintf(stdout,''\t\t'v' - prog cntr vafue promptXn"); 
fprintf(stdout,'’\t\t'@' - to abort the operatioa* \n"); 
fscanf(stdin,"^ls“,inpstr); 

strptr = stripblk(inpstr); 

if (strptrlOl == '@') { 

opt->abortop = TRUE: 
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return; 



} 

if (strptr[0] == 'v') { 

__segnum = get_segm(&opt->abortop, 

_numusrseg - 1); 

if (opt->adortop) 
return; 

-Offset = get-ofst(&opt->abortop, 

-memUsegnumlsize - 1) 

if (opt->adortop) 
return; 

break; 



f printf(stdout/’lncorrect responseAn"); 



while (TRUE); 
debgtask = 1; 

m.val = cnv2addr(__segnum, -Offset); 

V = fetchm(&m,Q); 

if (v->tupe != VJNSTR) { 

fprintf(stdout,”Sorry, non-instr at memaddrAn”); 
fprintustdout, "Program counter unchanged. \n"); 
opt->abortop = TRUE; 
return; 

} 

-pc.val = m.val; 
debgtask = 0; 
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Debugger Utility File 



/^DEBUGUTLC : This file contains the utility programs for the AM 

debugger. 

-AM version 1.0 - ZlOO 
Changes: 



^include "amdef-h" 
include "amtype.h" 

^include "amexterah" 

^include ’’debug.h* 

/^CNV2ADDR() 
f unctioa 

-This functions converts its parameters into a regular 
segmented memory address. 

interface: 

(p) _segnum 
(p) -Offset 

called by: 

dispImemO/debugopr.c 

removbrkQ/debugopr.c 

setmemrO/debugopr.c 

setbrk(Vdebugopr.c 

set_pc()/debugopr.c 

qet_madQ/ debugopr .c 

dispIregO/debugopr.c 

setregrn/debugopr.c 

qet_radQ/debugopr.c 

dispIstkQ/debugopr.c 

setstk()/debugopr.c 

get_sad()/ debugopr.c 



calls: 

errors: 






address 

cnv2addr(_segnum, -offset) 
long -seqnum; 
long -Offset; 
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return((_segnum « X_S£G5FT) | .offset); 

/’^STRIPBLKO 

function: 

-This functions strips leading blank characters from a 
character string. 

interface: 

(p) str 

called bu: 

disp I mem()/ debugopr.c 

dispIregO/ debugopr.c 

displbrky/debugopr.c 

displstkO/debugopr.c 

displ.pcQ/debugopr.c 

getopr()/debug.c 

getresrcQ/debug.c 

getvalueO/debugopr.c 

goexecO/debugopr.c 

removbrkO/deDugcpr.c 

setmemr()/debugopr.c 

setr egr(y debugopr. c 

setstk‘'Q/debugopr,c 

setbrkQ/ debugopr.c 

set_pc()/debugopr.c 

traceopQ/debugopr.c 

quitdebgQ/ debugopr.c 

getjnadp/debugopr.c 

get_radQ/ debugopr.c 

get_sadp/debugopr.c 

get_int()/debuqopr.c 

get_bool()/debugopr.c 

get_f i 1 e()/ debugopr.c 

getjnopp/ debugopr.c 

get_bopp/ debugopr.c 

get-jropy/debugopr.c 

get_dopD/debugopr.c 

get_inst()/debugopr.c 

get_segm()/ debugopr.c 

get_of stp/debugopr.c 

quitdebqO/debugcpr.c 



calls: 

strlen()/ ’♦system** 

errors: 



*♦/ 



char 



^stripblk(str) 
char ^str; 

{ 

int index = 0; 
int Ingth; 

Ingth = str)en(str); 

while ((index < Ingth) && (str[index] == ’ ')) 
index++; 

return(str + index); 

/^STR2HEX() 

function: 

-Converts an unsigned hex character string into its 
integer eguivalent. !! Warninq !! The function can and 
does modify the pointer to the input string parameter! 
The max string length the function assumes is four (4) 
for conversion to regular hexidecima! integer. 



interface: 

(p) str 
(p) validnum 
(p) intptr 

called bu: 



errors: 

-Initializes parameter 'validnum' with the results of 
of the conversioa 



BCOLN •‘validnum; 
long ^‘intptr; 

{ int index = 0; 
int maxchars; 

str = stripblk(str); 




calls: 



str2hex(str,val idnumjntptr) 
char ^sir; 
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if (str!en(str) == 0) { 

^validnum = FALSE; 
return; 

} 



♦'intptr = 0; 

maxchars = nXHEXSTR - 1; 

while ((((str( index] >= 'O’) && (strlindex) <= '9')) I I 
ustrlindex] >= 'a') && (str[indexl <= 'f’))) && 

(index < maxchars)) { 

if ((strlindexj >= '0') && (strlindexi <= '9')) 

^intptr= 16 ^ (^intptr) + str[index++] - ’O'; 
else 

**intptr= 16 ** (**intptr) + (str[lndex++j - 'a') + 10; 



str = ^strlindexj; 
str = stripblk(str); 

^validnum = (strien(str) == 0) ? TRUE ; FALSE; 

/»^STR2DEC() 

function: 

-Converts an signed or unsigned character string into 
its long integer equivalent, n Warning !j The function 
can and does modify the pointer to fne input string para- 
meter! The max string length the function assumes is 
eleven (11) for conversion to regular signed integer. 



interface: 

(p) str 
(p) validnum 
(p) intptr 

called by: 

get_segm()/debugopr.c 
get_of stO/debugopr.c 
getrange()/debugopr.c 
goexec()/ debugopr.c 
traceopO/debugopr.c 
removbrkO/debugopr.c 
get_int()/debugopr.c 
get_nat(y debugopr.c 
get_fileQ/debugopr.c 
getvalue()/ debugopr.c 



calls: 

strlen()/ ‘‘system** 
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errors: 



-Initializes parameter 'validnum' with the results of 
of the conversion. 






str2dec(str,val idnumjntptr) 
char ^str; 

BOOLN ^validnum; 
long ^intptr; 

{ int index = 0; 
int maxchars; 
int strsize; 

BOOLN ncgnum = FALSE; 
long maxnum = 2147483647; 

maxchars = MXDECSTR - 2; 

if (strlen(str) == 0) { 

^validnum - FALSE; 
return; 



if (strlOj == { 

negnum = TRUE; 
str = &str(l); 



if (strlen(str) == 0) { 

**validnum = FALSE; 
return; 



**intptr = 0; 
index = 0; 



while (((str[index) >= 'O’) && (strlindex) <= '9')) 

&& (index < maxchars) && (*^intptr <= maxnum)) { 

**intptr = 10 (*^intptr) + (str[index++] - '0'); 



} 

str = &strlindexl; 
str = stripblk(str); 

*«validnum = (strlen(str) == O) ? TRUE : FALSE; 
if (**validnum) { 

**intptr = negnum ? 0 - *^intptr : *^intptr; 
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